Funktion / Procedure eine Procedure übergeben?

[Kedariodakon]

Kann mir jemand sagen wie das geht?

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


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;

Ich und langsam?? Niieee...

Gruß
Stephan

[Kedariodakon]

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

aber mit einem
  Of Object gehts

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


bye