分解字串的问题?

Question

如何将类似
"未命名|未命名|未命名|未命名|未命名|未命名|未命名|未命名|未命名"的字串根据"|"分解成数组

Answer 1

splitpos:=pos(str,'|');
while splitpos>0 do
begin
stringlist1.add(copy(str,1,splitpos-1));
str:=copy(str,splitpos+1,length(str)-splitpos);
splitpos:=pos(str,'|');
end;
stringlist1.add(str);

Answer 2

var
  a:array [1..9] of string;
procedure strtoarray(s);   //s为要分解的字串
var
  c,i:integer;
  ts:string;
begin
  ts:=s;
  for i:=1 to 9 do
  begin 
    if i<9 then
    begin
      a[i]:=copy(ts,1,pos('|',ts)-1);
      delete(ts,1,pos('|',ts));
    end;
    if i=9 then
      a[9]:=ts;
  end;
end;