Funktion / Procedure eine Procedure übergeben?

[Kedariodakon]

Kann mir jemand sagen wie das geht? :gruebel:

Also ich habe in einer Klasse eine Logfunktion und will die in der Klasse in einer Procedure in einer anderen Unit benutzen...
:twisted:

Bye

[Nothine]

generalisiert so:

Delphi-Quellcode:

type
  TMyProcedure = procedure(X,Y: Integer);  //Parameter nur beispielhaft

procedure MyProcedure(Proc: TMyProcedure);

...

var AProc: TMyProcedure;
begin
  AProc := SomeProcWith2Parameters;
  MyProcedure(AProc);
end;

[Christian Seehase]

Moin Christian,

meinst Du das so:

Delphi-Quellcode:

type
  TDisplay = procedure(const AsMessage : string);

implementation

{$R *.DFM}

procedure Display(const AsMessage : string);
begin
  ShowMessage(AsMessage);
end;

procedure DoDisplay(const ADisplay : TDisplay);
begin
  ADisplay('MELDUNG');
end;

procedure TForm1.Button1Click(Sender: TObject);

begin
  DoDisplay(Display);
end;

?

[Steve]

Hi,

so sollte es prinzipiell funktionieren:

Delphi-Quellcode:

TYPE  // Prozedur-Typ deklarieren
  TMyProc = PROCEDURE (aTest : Integer);
...
implementation

// Eine Bsp.-Prozedur von obigem Typ
PROCEDURE MyProc(aTest : Integer); 
BEGIN
  ShowMessage(IntToStr(aTest));
END;
// Eine andere Bsp.-Prozedur von obigem Typ
PROCEDURE MyOtherProc(aTest : Integer);
BEGIN
  ShowMessage(IntToStr(aTest*2));
END;

{ Dieser Prozedur wird eine Prozedur übergeben }
PROCEDURE MyTest(aProc : TMyProc);
BEGIN
  aProc(7);
END;

{Beispiel-Aufrufe: }
procedure TForm1.Button1Click(Sender: TObject);
begin
  mytest(MyProc);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  MyTest(MyOtherProc);
end;

:shock: Ich und langsam?? Niieee... :angel:

Gruß
Stephan :dance:

[Kedariodakon]

Die procedure die ich übergeben will ist eine Methode einer Klasse, da gehen eure Beispiele net :zwinker:
Denn so weit war ich auch schon :angel2:

aber mit einem

Delphi-Quellcode:

  Of Object

gehts :wink:

Ich bin heut zu plöd zu allem...


bye