Prozedur aus einer anderen Prozedur aufrufen

[Honigdachs]

Hallo,

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

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

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
test(); ShowMessage ist übrigens auch eine funktion/procedure und die rufst du auch bereits auf

[Honigdachs]

Ok, jetzt habe ich das Problem, dass [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.

[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 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