Funktion / Procedure eine Procedure übergeben?

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

Ich und langsam?? Niieee...

Gruß
Stephan