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';

注意上面兩句順序不能顛倒。

參考