{按指定的字符分割字符串}
用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变量就完,报错过不去!!!
谁能帮我解决这个问题,高手救俺