procedure TForm1.Button1Click(Sender: TObject);
var s:String;
ss:TStringList;
begin
s:='aaa,ccasdf,123,uuu';
ss:=TStringList.Create;
ss.CommaText:=s;
{ ss.Strings[0] ---- aaa
ss.Strings[1] ----- ccasdf
ss.Strings[2] ---- 123
ss.Strings[3] ----- uuu
}
ShowMessage(ss.Strings[0]);
ss.free;
end;
var s:String;
ss:TStringList;
begin
s:='aaa,ccasdf,123,uuu';
ss:=TStringList.Create;
ss.CommaText:=s;
{ ss.Strings[0] ---- aaa
ss.Strings[1] ----- ccasdf
ss.Strings[2] ---- 123
ss.Strings[3] ----- uuu
}
ShowMessage(ss.Strings[0]);
ss.free;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货