delphi 中分隔符分隔的字符串

完整例子 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';

注意上面两句顺序不能颠倒。

参考http://topic.csdn.net/t/20060313/09/4610207.html

http://topic.csdn.net/t/20021031/17/1137402.html

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/38085/viewspace-1028012/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/38085/viewspace-1028012/