Delphi Stars Parameteranzeigetool

[shmia]

Zitat von ManuMF:

@shmia: Dafür ist doch die Rubrik "Open Source", oder?

Genau.
Bei so einfachen Programmen sollte man IMHO den Sourcecode immer mitgeben.
Schlieslich gibt es viele Delphi Anfänger, die sich darüber freuen und davon lernen können.
Und jeder hier war mal ein Anfänger.

Deshalb gibts den Sourcecode jetzt vom mir:

Delphi-Quellcode:

// Ein TEdit und ein TMemo auf ein Formular setzen und
// diesen Eventhandler bei OnCreate des Formalars einsetzen
procedure TForm1.FormCreate(Sender: TObject);
var
   i : Integer;
   s : string;
begin
   s := '';
   // Schleife über alle Parameter
   for i := 1 to ParamCount do
   begin
      Memo1.Lines.Add(ParamStr(i));
      s := s + ParamStr(i)+ ' ';
   end;

   Edit1.Text := s;
end;