在delphi把字符串分割成一维数组

核心提示：字符串的处理，往往是很多地方都要用到的，在delphi把字符串分割成一维数组，对于一个字符串，可以用以下方法来完成， type userarray=array of string; function tform1.split(s:string;dot:char):userarray; var str:userar

字符串的处理，往往是很多地方都要用到的。对于一个字符串，可以用以下方法来完成。  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; 你可以改造一下，让它来达到你需要的结果。