50分请问一个截取字符串的问题

Question

41013999|724|9383528||||||
41013889|11545|23888728||||||我想分别截取前两个竖杠（|）之间的数字（如724）以及其后的数字（如9383528）。假设str定义为上面字符串 s:=copy(str,pos('|',str)+1,length(str)-pos('|',str)+1);
t:=copy(s,0,length(s)-pos('|',s)+1);
这样好像只能得到第一个杠后面的字符，请大家帮帮我，谢谢。

Answer 1

var
  TL1 :TStringList;
begin
  i :=0;
  TL1 := TStringList.Create;
  TL1.Delimiter := '|';
  TL1.DelimitedText := '41013999|724|9383528||||||';
  //TL1.add('41013999|724|9383528||||||');
  ShowMessage(TL1.Strings[1] +'   '+TL1.Strings[2]);

Answer 2

var
 s: TStringList;
s := TStringList.Create;
  s.Delimiter := '|';
  s.DelimitedText := '41013999|724|9383528||||||';
  for i:=0 to s.Count-1 do
    ShowMessage(s.Strings[i]);