Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#4

Re: Delphi Stars Parameteranzeigetool

  Alt 17. Aug 2005, 11:13
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;
Andreas
  Mit Zitat antworten Zitat