大家帮忙看看这个字符串的处理方法！

Question

STR:='a|bc|dds|oee|aa';
我想得到‘a','bc','dds','oee','aa'的结果，应该如何做截取处理，请大家指教！

Answer 1

var
  l : TStringList;
begin
  l := TStringList.Create;
  try
    l.Delimiter := ' ';
    l.DelimitedText := 'a|bc|dds|oee|aa';
    l.strings//你要的东东
  finally
    l.Free;
  end;

Answer 2

function SplitString(const source,ch:string):tstringlist;vartemp:string;i:integer;beginresult:=tstringlist.Create;temp:=source;i:=pos(ch,source);while i<>0 dobeginresult.Add(copy(temp,0,i-1));delete(temp,1,i);i:=pos(ch,temp);end;result.Add(temp);end;调用：s:=splitstring('afsdfsdaaa|bbfdsfsdb|ccc','|');for i:=0 to s.Count-1 dob:=b+s.Strings[i]+#13;showmessage(b);s.free;
 

Answer 3

更正 l.Delimiter := '|';

Answer 4

字符串变量l,s，t
然后l := 'a|bc|dds|oee|aa';
    s :='|';
然后
  while(pos(s,l)>0) do
  begin
    t := copy(s,1,pos(s)-1);
    delete(s,1,pos(s));
  end;