Split og command

StringList1.CommaText := 'hej,hej2,hej3';

var
  I: Integer;
begin
  for I := 1 to ParamCount do
  begin
    ShowMessage(ParamStr(I));
  end;
end;

Og hvis du vil splitte strings der er opdelt af andet end komma, så har jeg netop skrevet en procedure til det:

procedure SplitString(S: String; SplitChar: Char; Strings: TStrings);
var
  TmpStr: String;
begin
  Strings.Clear;
  while Pos(SplitChar, S) > 0 do
  begin
    TmpStr := Copy(S, 1, Pos(SplitChar, S) - 1);
    Delete(S, 1, Pos(SplitChar, S));
    if Length(TmpStr) > 0 then  // Fjern denne linje hvis du vil acceptere tomme strenge.
      Strings.Add(TmpStr);
  end;
  if Length(S) > 0 then
    Strings.Add(S);
end;

Du bruger den på følgende måde:

procedure TForm1.Button1Click(Sender: TObject);
var
  StringList: TStringList;
  I: Integer;
begin
  StringList := TStringList.Create;
  SplitString('hej1,hej2,hej3,hest', ',', StringList);
  for I := 0 to StringList.Count - 1 do
    ShowMessage(StringList[I]);
  StringList.Free;
end;

Jeg forstår ikke helt hvorfor en param har et nummer, erdet hvis der er mellemrum?

min idé er at programmet bliver kørt som ex. "mitprogram.exe hej1,hej2,hej3" og så kommer hej1, hej2 og hej3 ind i en stringlist

1: Ja

2: StringList1.CommaText := ParamStr(1);