Delphi 字串分割

使用TStringList來分割字串，下面的範例是將字串 'a,b,c' 以 ',' 來分割

procedure TForm1.FormCreate(Sender: TObject);
var
  s: TStrings;
begin
  s := TStringList.Create;
  try
    s.Delimiter := ',';
    s.DelimitedText :='a,b,c';
    ShowMessage(s[0]);
    ShowMessage(s[1]);
    ShowMessage(s[2]);
  finally
    s.Free;
  end;
end;