Prozedur aus einer anderen Prozedur aufrufen

[Honigdachs]

Hallo,

so, Honigdachs hat noch mal eine Frage, diesmal ist es allerdings echt peinlich :oops:

Ich kriegs einfach nicht auf die Reihe, eine Procedure aus einer Procedure aufzurufen.
D.h., ich habe

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject);
begin
  ??? // hier will ich die andere Prozedur aufrufen
end;

ist wahrscheinlich ganz einfach, aber ich kriegs echt nicht hin :duck:

MfG

Honigdachs

[SirThornberry]

ganze einfach:

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject); 
begin 
  NameDeinerProcedure(Parameter1, Parameter2, Parameter3,...);
end;

[Honigdachs]

Und was hat das genau mit den Parametern auf sich?
Wenn die Prozedur bspw. TEST heißt, also

Delphi-Quellcode:

procedure TEST;
begin
  ShowMessage('Prozedur Test');
end;

wie muss ich das dann genau mit den Parametern machen um es in der anderen Prozedur aufzurufen?

MfG,

Honigdachs

[SirThornberry]

dann hat deine procedure keine Parameter

Delphi-Quellcode:

test();

ShowMessage ist übrigens auch eine funktion/procedure und die rufst du auch bereits auf :wink:

[Honigdachs]

Ok, jetzt habe ich das Problem, dass

Delphi-Quellcode:

[Fehler] Unit1.pas(19): Ungenügende Forward- oder External-Deklaration: 'TForm1.TEST'

auftritt, sobald ich das compilieren will. Ich weiß echt nicht mehr weiter.

[zecke]

Probier es mit Form1.Test nicht TForm1.Test.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure test;
begin
  showmessage('blöa');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
test;
end;


end.

funktioniert bei mir einwandfrei :)

edit: schreibungsrechtfehler

[Honigdachs]

Also mit Delphi 5 gehts leider nicht. :cry:

[Dax]

Kuck dir mal dies hier an, dort ist alles genau beschrieben.

[Honigdachs]

Erstmal vielen Dank für die vielen Beiträge!
Ich habe es folgendermaßen gelöst:

Delphi-Quellcode:

procedure test();
begin
  ShowMessage('Test');
end;

procedure Tform1.button1click(sender: tobject);
begin
  test();
end;

Also im Wesentlichen zecke's Lösung, jedoch mit den "Parametern ()". Scheint wohl bei Delphi 5 nötig zu sein.

MfG,

Honigdachs

[leddl]

Zitat:

Zitat von Honigdachs

Also im Wesentlichen zecke's Lösung, jedoch mit den "Parametern ()". Scheint wohl bei Delphi 5 nötig zu sein.

Das hat dir SirThornberry doch bereits in Beitrag #4 vorgeschlagen :gruebel:

[Honigdachs]

Zitat:

Zitat von leddl

Zitat:

Zitat von Honigdachs

Also im Wesentlichen zecke's Lösung, jedoch mit den "Parametern ()". Scheint wohl bei Delphi 5 nötig zu sein.

Das hat dir SirThornberry doch bereits in Beitrag #4 vorgeschlagen :gruebel:

Schon, aber zecke's Lösung war dann doch anwenderfreundlicher bzw. für einen Anfänger verständlicher.

MfG

Honigdachs

PS: Kann man eigentlich aus einer anderen Prozedur das FormCreate nochmals aufrufen?

[zecke]

:hi:

Unwahrscheinlich, aber wenn, dann ist es keine gute Lösung (denke ich).

Packe das was du im OnCreate der Form machen willst in eine eigene Funktion, diese kannst du dann im oncreate der form aufrufen und auch sonst im code verwenden.


edit: sowas geht

Delphi-Quellcode:

form1.OnCreate(form1);

finde ich aber wie gesagt, verwirrend und nicht schön. wenns also geht, einfach in eine funktion umlagern. :mrgreen:

[Honigdachs]

Die FormCreate nochmals aufzurufen war halt meine Idee, um die Felder eines Datenbank-Formulars zurückzusetzen (inkl. Image). Mir fiel nichts anderes ein, außer eben das Programm praktisch per FormCreate einfach nochmal zu resetten.

[zecke]

Kannst Du schon so machen, denke ich :)

[Honigdachs]

Oder gibt es eine bessere Möglichkeit, bereits geladene Bilder wieder zu entfernen und in einen leeren Zustand zu versetzen?

MfG,

Honigdachs

[Mackhack]

Was meinst du denn mit einem Leeren Zunstand?

Ne Flasche Bier kann einen Leeren Zustand haben, aber ein Bild? :gruebel:

[zecke]

Ich vermute er meint, wie er ein geladenes Bild wieder aus dem Image herausbekommt. Ich mache das so:

Delphi-Quellcode:

DeinImage.Picture:=nil;

[Honigdachs]

Zitat:

Zitat von zecke

Ich vermute er meint, wie er ein geladenes Bild wieder aus dem Image herausbekommt. Ich mache das so:

Delphi-Quellcode:

DeinImage.Picture:=nil;

Ja, genau das hab ich gemeint :-D Danke!

Nochmals vielen Dank an alle, die geholfen haben!

[Erwin Pälzig]

Zitat:

Zitat von Honigdachs (Beitrag 637913)

Erstmal vielen Dank für die vielen Beiträge!
Ich habe es folgendermaßen gelöst:

Delphi-Quellcode:

procedure test();
begin
  ShowMessage('Test');
end;

procedure Tform1.button1click(sender: tobject);
begin
  test();
end;

Also im Wesentlichen zecke's Lösung, jedoch mit den "Parametern ()". Scheint wohl bei Delphi 5 nötig zu sein.

MfG,

Honigdachs

Besten Dank für den Beitrag, hat mir auch geholfen! :-D

Somit der Hinweis von mir: diese Definition muss auch so in Delphi XE7 umgesetzt werden.
Weiter so!

[DeddyH]

Hab ich was falsch verstanden, wenn wir schon Threadleichen schänden? Ich habe das gerade unter Delphi 5 ausprobiert:

Delphi-Quellcode:

procedure test;
begin
  ShowMessage('Test');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  test();
end;

funktioniert,

Delphi-Quellcode:

procedure test();
begin
  ShowMessage('Test');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  test();
end;

funktioniert auch,

Delphi-Quellcode:

procedure test();
begin
  ShowMessage('Test');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  test;
end;

ebenso. Wo ist das Problem?

[PaddyVII]

in XE6 (meiner Erfahrung nach zumindest) kann man einfach seine Prozedur aufrufen, wenn die parameter hat gibt man sie mit,w enn nicht dann nicht so einfach ist das...oder irre ich mich?!

[baumina]

Das ist schon immer so. Eine Prozedur oder Funktion, die keine Parameter erwartet benötigt beim Aufruf die zwei unnötigen Klammern () nicht. Das brauchen vielleicht andere Programmiersprachen, Pascal zumindest noch nie.

[himitsu]

Das ist auch garantiert mindestens seit Delphi 7 so.

Es gibt Sprachen, da müssen Proceduren/Funktionen immer mit Parametern aufgerufen werden und sei es nur mit leeren

Delphi-Quellcode:

()

.
Die Verwunderung/Frage hier bestand nun nur noch darin, ob das auch in/vor Delphi 5 so war.

Der TE meint es ginge nicht, aber andere Tests belegen, daß es doch ging.
Meine "Vermutung": DiePprozedur wurde "anfangs" nach dem Aufruf deklariert. (nicht davor, bzw. ohne rechtzeitige Forwarddeklaration)

[baumina]

Schon zu TurboPascal-Zeiten konnte man auf leere Klammern () beim Aufruf einer Prozedur verzichten, das ist also nichts delphispezifisches.

Wenn es natürlich mehrere Sachen gibt, die test heißen (z.B. eine procedure und eine Variable), dann kanns natürlich echt zum Chaos kommen.

[himitsu]

Chaos nicht wirklich.
Es wird ja immer das Test genommen, was als letztes sichtbar ist.

[Mikkey]

Zitat:

Zitat von baumina (Beitrag 1293100)

Das ist schon immer so. Eine Prozedur oder Funktion, die keine Parameter erwartet benötigt beim Aufruf die zwei unnötigen Klammern () nicht. Das brauchen vielleicht andere Programmiersprachen, Pascal zumindest noch nie.

Zumindest dort, wo es sich um eine Prozedurvariable handelt, ist beim Aufruf die Klammerung erforderlich, weil der Compiler sonst nicht erkennt, dass hier die referenzierte Prozedur aufgerufen werden soll.

Soviel zu "noch nie" ;-)

[baumina]

Zitat:

Zitat von Mikkey (Beitrag 1293199)

Zitat:

Zitat von baumina (Beitrag 1293100)

Das ist schon immer so. Eine Prozedur oder Funktion, die keine Parameter erwartet benötigt beim Aufruf die zwei unnötigen Klammern () nicht. Das brauchen vielleicht andere Programmiersprachen, Pascal zumindest noch nie.

Zumindest dort, wo es sich um eine Prozedurvariable handelt, ist beim Aufruf die Klammerung erforderlich, weil der Compiler sonst nicht erkennt, dass hier die referenzierte Prozedur aufgerufen werden soll.

Soviel zu "noch nie" ;-)

Was meinst du denn jetzt genau? Hast du dafür mal ein Beispiel?

[Mikkey]

Zitat:

Zitat von baumina (Beitrag 1293202)

Was meinst du denn jetzt genau? Hast du dafür mal ein Beispiel?

Ich meinte sowas:

Delphi-Quellcode:

type
  TFunc=Function(): Integer;

Function Bar(): Integer;
begin
  Result := 42;
end;

var
  pFunc: TFunc;
  funcResult: Integer;
begin
  pFunc := Bar;
  funcResult := pFunc;
end.

Aber mit dem aktuellen XE7 funktioniert das, beim Delphi7 hat er aber AFAIR noch gemault, dass er Typ Funktion nicht in Integer verwandelt könne.

[baumina]

OK, sowas gabs unter TurboPascal noch nicht.

[himitsu]

Delphi führt an vielen Stellen eine automatische (De)Referenzierung durch.

* Prozedurvariablen
* zuweisen von Prozedurzeigern (x:=@proc = x:=proc)
* Record-Pointer ... sobald da ein Punkt folgt, kann man das ^ weglassen (p^.x = p.x)
(nur bei mehrfachen Pointern muß man aufpassen)
Ist vorallem praktisch, da man den Code später fast problemlos auf Daten-Objekte/Interfaces umstellen kann. :angle: