求个取字符串函数

Question

111|222|333|444|555|666|
已 | 分割这段字符串 分别取出 111，222，333，444，555，666
放入数组a中求一个函数哦！返回这个数组哦

Answer 1

function f(s:string):TStringList;
begin
  Result:=TStringList.Create;
  Result.Delimiter:='|';
  Result.DelimitedText:=s;
end;procedure TForm1.Button1Click(Sender: TObject);
var a:TStringList;
begin
  a:=f('111|222|333|444|555|666|');
  ShowMessage(s[0]);
end;

Answer 2

Unit 
Classes
function ExtractStrings(Separators: TSysCharSet; WhiteSpace: TSysCharSet; Content: PAnsiChar; Strings: TStrings): Integer;