完整例子 delphi TStringList的用法 http://laorer.javaeye.com/blog/65367
为了处理用分隔符分隔的字符串，如123|233|34,比较简单的是使用TStringList
[@more@]网上别人例子整理的
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
sl: TStringList;
i: integer;
begin
s := '123|23423|354234|234234';
sl := TStringList.Create;
//ExtractStrings([], ['|'], PChar(s), sl); //这个一样不能以'|'分隔
s := StringReplace(s, '|', #13#10, [rfReplaceAll]);
sl.Text := s;
//.....这样就已经存入sl中了
}
for i:=0 to sl.Count-1 do
ShowMessage(sl[i]);
FreeAndNil(sl);
end;
用ExtractStrings 的话
s := '123|23423|354234|234234';
sl := TStringList.Create;
ExtractStrings( ['|'], [], PChar(s), sl);
另外：TStringList的默认分隔符是逗号, 如果是逗号分隔的
s := '123,23423,abc,';
sl.DelimitedText := s;
如果是|分隔的
s1.Delimiter :='|';
s1.DelimitedText := '12|abd|good';
注意上面两句顺序不能颠倒。
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/38085/viewspace-1028012/ ，如需转载，请注明出处，否则将追究法律责任。
