Question

delphi 怎么能以逗号为准把字符串拆分

Answer 1

var
stl:Tstringlist;
s:string;
i:integer;
begin
s:='1,2,3,4';
stl:= Tstringlist.Create();
stl.Delimiter:=',';
stl.CommaText:=s;
for i:=0 to stl.Count-1 do
begin
showmessage((stl.Strings[i]));
end;

end;

Answer 2

引用lizhongjian05的回答：
var
stl:Tstringlist;
s:string;
i:integer;
begin
s:='1,2,3,4';
stl:= Tstringlist.Create();
stl.Delimiter:=',';
stl.CommaText:=s;
for i:=0 to stl.Count-1 do
begin
showmessage((stl.Strings[i]));
end;

end;

DelimitedText用这个，CommaText不成！