{按指定的字符分割字符串}
用ExtractStrings函数,无论你有多少个'|'都能以它来分割
procedure TForm1.Button1Click(Sender: TObject);
var
strs:tstringlist;
i:integer;
begin
strs:=tstringlist.create;
ExtractStrings(['|'],[],'1|abcde|fgggg'{//这里要是换成字符串变量就不行了},strs);
for i:=0 to strs.Count -1 do
ShowMessage(strs.Strings[i]);
strs.free;
end;这个函数不错 可是中间的字符串一换成STRING变量就完,报错过不去!!!
谁能帮我解决这个问题,高手救俺
用ExtractStrings函数,无论你有多少个'|'都能以它来分割
procedure TForm1.Button1Click(Sender: TObject);
var
strs:tstringlist;
i:integer;
begin
strs:=tstringlist.create;
ExtractStrings(['|'],[],'1|abcde|fgggg'{//这里要是换成字符串变量就不行了},strs);
for i:=0 to strs.Count -1 do
ShowMessage(strs.Strings[i]);
strs.free;
end;这个函数不错 可是中间的字符串一换成STRING变量就完,报错过不去!!!
谁能帮我解决这个问题,高手救俺
aStr:String;
aStr:='1|abcde|fgggg';
ExtractStrings(['|'],[],PChar(aStr),strs);