Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Software-Projekte der Mitglieder (https://www.delphipraxis.net/26-software-projekte-der-mitglieder/)
-   -   Delphi Stars Parameteranzeigetool (https://www.delphipraxis.net/51682-delphi-stars-parameteranzeigetool.html)

Delphi Star 17. Aug 2005 06:38


Delphi Stars Parameteranzeigetool
 
Liste der Anhänge anzeigen (Anzahl: 1)
Delphi Stars Parameteranzeigetool

Dieses Tool macht nicht mehr als alle an es übermittelten Parameter anzuzeigen und ordentlich aufzulisten.

Download: http://delphistar.de.funpic.de/parameteranzeigetool.htm

shmia 17. Aug 2005 10:51

Re: Delphi Stars Parameteranzeigetool
 
Zitat:

Zitat von Delphi Star
Dieses Tool macht nicht mehr als alle an es übermittelten Parameter anzuzeigen und ordentlich aufzulisten.

Ich glaube, du würdest kein grosses Geheimnis verraten, wenn du den Sourcecode mitveröffentlichen würdest.
Besonders für Delphi-Anfänger wäre das eine viel grössere Hilfe als nur das EXE.

ManuMF 17. Aug 2005 11:03

Re: Delphi Stars Parameteranzeigetool
 
Das Programm ist ganz nett, wenn man ein Problem mit den Dateitypenzuordnungen hat.

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

shmia 17. Aug 2005 11:13

Re: Delphi Stars Parameteranzeigetool
 
Zitat:

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;


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:21 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz