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;

From:http://tw.wingwit.com/Article/program/Delphi/201311/24696.html