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

　2008-03-08 12:25:18　来源：WEB开发网　闂侀潧妫撮幏锟�

婵犫拃鍛粶闁靛洤娲ㄩ埀顒佺⊕閵囩偟绱為敓锟�闂侀潧妫撮幏锟�　　闂佺ǹ绻楀▍鏇㈠极閻愬搫绾ч柕濠忕細閼割亜顪冪€ｎ剙浠ф繛鍫熷灥椤曘儵顢欓悡搴ば�

核心提示：字符串的处理，往往是很多地方都要用到的，在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; 你可以改造一下，让它来达到你需要的结果。