问一个delphi的函数

Question

delphi里面把(111,123,221,3221,233,12)拆分为一个数组的函数是什么？
类似vb里面的split()函数

Answer 1

function ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: PChar; Strings: TStrings): Integer;例子：
var
 TmpStrs: TStrings;
 Ret: Integer;
begin
 TmpStrs:=TStringList.Create;
 try
  Ret:=ExtractStrings([','],[],'1,2,3,4',TmpStrs);
  if Ret>0 then Memo1.Lines:=TmpStrs
  else Memo1.Text:='Error';
 finally
  TmpStrs.Free;
 end; //end of try
end;

Answer 2

oracle_lover(数据库情人) 已回，进来了就顶一下了！

Answer 3

自己定义一个函数,如下,其中分割的标志是 SubStr,保证有效!function SplitString(const Source, SubStr: String): TStrings;
var
      tempStr : String;
      I : Integer;
begin
      Result := TStringList.Create;
      tempStr := Source;
      I := Pos(SubStr, Source);
      while I <> 0 do
      begin
            Result.Add(Copy(tempStr, 0, I - 1));
            Delete(tempStr, 1, I);
            I := Pos(SubStr, tempStr);
      end;
      Result.Add(tempStr);
end;

Answer 4

就用现成的函数吧，不错
function ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: PChar; Strings: TStrings): Integer;

Answer 5

function ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: PChar; Strings: TStrings): Integer;