救助。如何分辨字符，并转化

Question

请问，当使用edit组件输入多个整数，以“，”或者空格分割每个输入的数字之后，如何将每个数字分辨出来，并赋值给自定义的数组。

Answer 1

var
  SL: TStringList;
  I: Integer;
begin
  SL := TStringList.Create;
  try
    SL.Delimiter := ',';
    SL.DelimitedText := '1,2,3,4,5,6';
    for I := 0 to SL.Count - 1 do
      ShowMessage( SL[I]);
  finally
    SL.Free;
  end;
end;