var
StrList : TstringList;
i : integer;
begin
StrList := TStringList.Create;
StrList.DelimitedText := '123,456,789';
StrList.Delimiter := ',';
for i := 0 to StrList.Count -1 do
begin
showmessage(StrList[i]);
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024