Delphi×Ö·û´®½ØÈ¡¡ª¡ªExtractStrings & TStringList

procedure TForm11.FormCreate(Sender: TObject); var lst: TStringList; i: Integer; begin // lst := TStringList.Create; //д·¨1 // ExtractStrings([','], [], '123,234,456,321', lst); // for i := 0 to lst.Count - 1 do // ShowMessage(lst[i]); // lst.Free; lst := TStringList.Create; //д·¨2 lst.Delimiter := ','; lst.DelimitedText := '123,234,423,123'; for i := 0 to lst.Count -1 do ShowMessage(lst[i]); lst.Free; end; Syntax function ExtractStrings(Separators: TSysCharSet, WhiteSpace: TSysCharSet, Content: PAnsiChar, Strings: TStrings): Integer;