作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

字符串的处理，往往是很多地方都要用到的。对于一个字符串，可以用以下方法来完成。 

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;

你可以改造一下，让它来达到你需要的结果。

相关软件：