关于读取字段中分隔符数据问题

Question

比如一字段中有:1,2,45,232,232等数据，我把把这些逗号间隔的数据分开读取出来应该怎么做，有这样的函数吗？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
begin
  s: = '1,2,45,232,232';
  ExtractStrings([','], [' '], pchar(s), memo1.Lines);
end;

Answer 2

下面代码ss相当于一个string数组：
procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  ss: TStrings;
  i: Integer;
begin
  s := '1,2,45,232,232';
  ss := TStringList.Create;
  ExtractStrings([','], [' '], pchar(s), ss);
  for i := 0 to ss.Count - 1 do
    ShowMessage(ss[i]);
  ss.Free;
end;

Answer 3

OK。 谢谢  weizi2000(秋风啊)