如何在一串字符串里把我需要我内容取来放入TSringList内???

Question

比如字符串: 
    Str: = '|12345|344545|3423432|3424|4523423|'
    tem:= TStringList.create;
 请问如何将 123456  344545 等取出来放入 Tem 内!!!?? 谢谢!!

Answer 1

var
  tem : TStringList;
begin
  tem := TStringList.Create;
  try
    tem.Delimiter := '|';
    tem.DelimitedText := '|12345|344545|3423432|3424|4523423|'
    tem.strings//你要的东东
  finally
    tem.Free;
  end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  Str:String;
  tem : TStringList;
begin
  Str := '|12345|344545|3423432|3424|4523423|';
  tem := TStringList.create;
  try
    ExtractStrings(['|'],[' '],pchar(Str),tem);
    showMessage(tem.Text);
  finally
    tem.Free;
  end;
end;