split 函数

Question

在VB中，有个叫split的函数很好用
但是无法在Delphi中找到类似的函数
莫非Delphi真的没有提供？必须自己写么？
附:
描述返回一个下标从零开始的一维数组，它包含指定数目的子字符串。语法Split(expression[, delimiter[, count[, compare]]])也就是说可以将一个字符串按照另外的子串做分隔符截取成一个数组
真的很好用哦！

Answer 1

function split(s,s1:string):TStringList;
begin
  Result:=TStringList.Create;
  while Pos(s1,s)>0 do
  begin
     Result.Add(Copy(s,1,Pos(s1,s)-1));
     Delete(s,1,Pos(s1,s));
  end;
  Result.Add(s);
end;procedure TForm1.Button1Click(Sender: TObject);
var
  s1:TStringList;
begin
 s1:=split('11111111:2222:33333:44444',':');
 Memo1.Lines.AddStrings(s1);
 s1.Free;
end;帮你写一下

Answer 2

谢谢楼上,写得很好，收藏!
我只是觉得Borland没有做这样个函数很可Topicid=2079754, 谢谢楼上,写得很好，收藏!
我只是觉得Borland没有做这样个函数很可