var
str:string;
r:TStrings;
begin
r:=TStrings.Create;
str:='123;12;123';
if ExtractStrings([';'],[],PChar(str),r)>0 then //这里出错
ShowMessage(r.Text);
r.Free;
end;错误信息:
Abstract Error.
str:string;
r:TStrings;
begin
r:=TStrings.Create;
str:='123;12;123';
if ExtractStrings([';'],[],PChar(str),r)>0 then //这里出错
ShowMessage(r.Text);
r.Free;
end;错误信息:
Abstract Error.
str:string;
r:TStrings;
begin
r:=TStringlist.Create;
str:='123;12;123';
if ExtractStrings([';'],[' '],PChar(str),r)>0 then //这里出错
ShowMessage(r.Text);
r.Free;end;