一个字符串截取的问题~~~~~~~~~~

Question

有一字符串，格式如下：
---------------------------------------------------
|01|中|12345|ddeef|s25412|sdefe|254110|数据库|----------------------------------------------------
如何才能截取成以下格式：
-------------------------
中,12345,s25412,数据库

Answer 1

function getleftstr(var str:string):string;   //从左边依此取|分开的字符串
var
  s :string;
begin
  if pos('|',str)=0 then
  begin
    result:=str;
    str:='';
    exit;
  end;
s:=copy(str,1,pos('|',str)-1);
  Result:=s;
  str:=copy(str,pos('|',str)+1,length(str)-length(s)+1);
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  s: TStringList;
  i: integer;
begin
  s:= TStringList.Create;
  s.Delimiter:= '|';
  s.DelimitedText:= '|01|中|12345|ddeef|s25412|sdefe|254110|数据库|';
  for i:= 0 to s.Count-1 do
  begin
    showmessage(s[i]);
    //在这里判断处理
  end;
  s.Free;
end;