delphi中的split函数

delphi 中的 split 函数 类似于 vb中的 split函数

type

userarray=array of string;

function split(s:string;dot:char):userarray;

var

str:userarray;

ij:integer;

begin

i:=;

j:=;

SetLength(str );

while Pos(dot s) > do //Pos返回子串在父串中第一次出现的位置

begin

str[j]:=copy(sipos(dots)i);

i:=pos(dots)+;

s[i] := chr(ord(dot)+);

j:=j+;

end;

str[j]:=copy(sistrlen(pchar(s))i+);

result:=str;

end;