字符串的處理，往往是很多地方都要用到的。對于一個字符串，可以用以下方法來完成。 

type userarray=array of string;  

  function tform1.split(s:string;dot:char):userarray;
    var
     str:userarray;
     i,j:integer;
    begin
       i:=1;
       j:=0;
       SetLength(str, 255);
       while Pos(dot, s) > 0 do
       begin
        str[j]:=copy(s,i,pos(dot,s)-i);
        i:=pos(dot,s)+1;
        s[i-1] := chr(ord(dot)+1);
        j:=j+1;
       end;
       str[j]:=copy(s,i,strlen(pchar(s))-i+1);
      result:=str;
    end;

你可以改造一下，讓它來達到你需要的結果。