Delphi-PRAXiS
Seite 1 von 6  1 23     Letzte »    

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Funktion erstellen (https://www.delphipraxis.net/26182-funktion-erstellen.html)

Andreas L. 19. Jul 2004 19:32


Funktion erstellen
 
Hi,
ich habe eine Funktion erstellt:

Delphi-Quellcode:
function happy(app : String; icon : String; destfile : String;): String;
begin
   ShowMessage('Anwendung = '+app+#10#13+'Icon = '+icon'+#10#13+'Ausgabedatei = '+destfile);
end;
Einfach so als Spaß.

Das ganze rufe ich mit einen Button klick so auf:

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
 happy('Test.exe','test.ico','C:\test');
end;
Was muss ich jezt machen damit ich das programm kompilieren kann??

Ist da oben irgendwo ein fehler oder muss ich die Function noch irgendwo deklarieren?

Ich weiß schon, ist ne dumme Frage aber mir fehlt die Antwort ;-)

Greetz und thx

Matze 19. Jul 2004 19:33

Re: Funktion erstellen
 
Zitat:

Zitat von onlinehome
Was muss ich jezt machen damit ich das programm kompilieren kann??

Strg + F9 :mrgreen:

Spaß beiseite, was für ein Fehler kommt denn?

Andreas L. 19. Jul 2004 19:35

Re: Funktion erstellen
 
Zitat:

Zitat von Compiler
Undefinierter Bezeichner: Happy

Muss die function nicht noch bei den types (wo auch die procedures stehen) mit rein? Wenn ja, wie muss der Code lauten für den types-Block?

Greetz und thx

djmasi 19. Jul 2004 19:35

Re: Funktion erstellen
 
1. Mach daraus ne Prozedur, dann gehts. Funktionen liefern dir immer etwas zurück (meist berechnete Sachen).

2. Schreib die dann in die Deklaration von Form1 (private oder public).

Delphi-Quellcode:
procedure TForm1.happy(app : String; icon : String; destfile : String;);
begin
   ShowMessage('Anwendung = '+app+#10#13+'Icon = '+icon'+#10#13+'Ausgabedatei = '+destfile);
end;

Rackergen2 19. Jul 2004 19:36

Re: Funktion erstellen
 
Da es eine Funktion ist, brauchst du auch ein Result, was du initialisieren musst, ansonsten empfehle ich dir das:

Delphi-Quellcode:
procedure happy(app : String; icon : String; destfile : String);
begin
  ShowMessage('Anwendung = '+app+#10#13+'Icon = '+icon+#10#13+'Ausgabedatei = '+destfile);
end;
edit: außerdem hast du in der Titelzeile ein ; zuviel...
edit2: außerdem fängst du nach der icon-Variable einen neuen String an, der da nicht hingehört..

Luckie 19. Jul 2004 19:38

Re: Funktion erstellen
 
Ob Prozedur oder Funktion ist erstmnal egal. Sie muss nur vor deiner Button Klick Routine irgend wo unter Implementation stehen.

Andreas L. 19. Jul 2004 19:38

Re: Funktion erstellen
 
Auch wenn ich ne procedure draus mach kommt der gleiche Compiler-Fehler (siehe oben) ;-)

Greetz

Andreas L. 19. Jul 2004 19:39

Re: Funktion erstellen
 
Zitat:

Zitat von Luckie
Ob Prozedur oder Funktion ist erstmnal egal. Sie muss nur vor deiner Button Klick Routine irgend wo unter Implementation stehen.

Aha, und was genau muss ich bei Implementation hin schreiben.

Die Delphi-Hilfe hilft mir auch nicht weiter.

:-(

S2B 19. Jul 2004 19:39

Re: Funktion erstellen
 
Delphi-Quellcode:
procedure happy(app, icon, destfile: String);
begin
   ShowMessage('Anwendung = ' + app + #10#13 + 'Icon = ' + icon + #10#13 + 'Ausgabedatei = ' + destfile);
end;
So stimmt's!

Edit: :wall: :mrgreen:

Edit2: Matzes Idee! :mrgreen:

Luckie 19. Jul 2004 19:40

Re: Funktion erstellen
 
Nur mal aus Neugier: Bist du nicht auch das mit dem HTML Editor: http://www.delphipraxis.net/internal...ct.php?t=30150 ? Wenn ja, kannst du mir mal verraten, wie du das geschafft hast ohne zu wissen wie man Funktionen implementiert und aufruft? :gruebel:


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:35 Uhr.
Seite 1 von 6  1 23     Letzte »    

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