DELPHI里面哪个函数和vb里的split 函数功能一样？(100分)

DELPHI里面哪个函数和vb里的split 函数功能一样？

没有！自己做一个吧！

[]

自己写吧，又能锻炼自己又用的有成就感，呵呵。。。

哈哈。只有自己写了。

type
vartype = array of string;
TForm1 = class(TForm)
BitBtn2: TBitBtn;
procedure BitBtn2Click(Sender: TObject);
public
function split(S, delimeter: string): vartype;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var
bb: vartype;
i: integer;
begin
bb := split(' delphi,is,good ',',');
for i := low(bb) to high(bb) do
showmessage(bb);
end;

function TForm1.split(S, delimeter: string): vartype;
var
aa: vartype;
i, l: integer;
begin
l := 0;
setlength(aa,1);
while pos(delimeter,s) > 0 do
begin
i := pos(delimeter,s);
aa[high(aa)] := copy(s,l,i-1);
s := copy(s,i+1,length(s));
setlength(aa,length(aa)+1);
end;
aa[high(aa)] := s;
result := aa;
end;