delphi分割字符串
作者:互联网
procedure TForm1.btn1Click(Sender: TObject);
var
constr,str,str1,str2,str3,str4:string;
strs :TStrings;
i:Integer;
begin
constr:='1-2-3';
strs := TStringList.Create;
strs.Delimiter := '-';
strs.DelimitedText := constr;
for i := 0 to Strs.Count-1 do
ShowMessage(Strs[i]);
end;
end.
标签:分割,end,TStrings,strs,delphi,Strs,constr,字符串,Create 来源: https://www.cnblogs.com/ZQ-KK/p/16258854.html