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;