delphi中有类似vbscript中的split函数吗？(50分)

[][][]delphi中有类似vbscript中的split函数吗？

没有自己写！

type
sptype=array of string;
......
function split(S, Sep: AnsiString): sptype;
var
I, L,J: Integer;
Left: AnsiString;
begin
J:=0;
L := Length(Sep);
I := Pos(Sep, S);
while (I > 0) do
begin
Left := leftstr(S, I-1);
inc(J);
setlength(Result,J);
Result[J-1]:=Left;
Delete(S, 1, I + L - 1);
I := Pos(Sep, S);
end;
if S <> '' then
begin
inc(J);
setLength(Result,J);
Result[J-1]:=S;
end;
end;

其实应该养成一个习惯，在提问前看看是不是已经有类似的帖子了！
以前已经有很多人问过了！

嘿嘿，我刚来！