公司的平台不支持Delphi自带的ExtractString,自己瞎捣鼓了一个。
const s1 = '4;1;3';
procedure ExtractString(const str: String);
var sl: TStrings;
i: Integer;
begin
str:=StringReplace(str, ';', #13, [rfReplaceAll]);
sl:=TStringList.Create;
sl.Text:=str;
for i:=0 to sl.Count-1 do
Showmessage(sl[i]);
sl.Free;
end;
ExtractString(sl);
输出结果4,1,3