Adresse einer Objekt-Procedure übergeben

[WoTo]

Hallo zusammen,
bei der folgenden Anweisung gibt der Compiler den Hinweis "Variable erforderlich" aus !

FTrigger.PtrTriggerEnd := @FBWManager.TriggerEnd; Wobei FTrigger.PtrTriggerEnd wie folgt deklariert ist:

property PtrTriggerEnd : Pointer write FPtrTriggerEnd; Und FBWManager.TriggerEnd sieht wie folgt aus:

Delphi-Quellcode:

TBWManager = class(TObject)
private
.
.
.
public
procedure TriggerEnd;

end;

Ich möchte nur die Adresse der Procedure FBWManager.TriggerEnd übergeben.

Was mache ich falsch ?

MfG
Woto

[Hawkeye219]

Hallo Woto,

eine Methode kann nicht über einen einfachen Pointer adressiert werden. Du solltest die Referenz als TThreadMethod vereinbaren und nicht als pointer.

Die Zuweisung sieht dann so aus:

FTrigger.PtrTriggerEnd := FBWManager.TriggerEnd; Gruß Hawkeye

[Kedariodakon]

Oder du machst dir deine eigenen MethodenTypen, falls du Rückgabe werte oder Parameter benötigst und benutzt diese dann:

Delphi-Quellcode:

Type
  TMeineMethode  = Procedure( Const MeinStr: String; Var MeinVar: Integer ) Of Object;
  TMeineMethode2 = Function(  Const MeinStr: String; Var MeinVar: Integer ): Integer  Of Object;

Bye Keda

[WoTo]

Hallo zusammen,
eure Antworten haben mir sehr geholfen.

Ich habe mir einen eigenen MethodenType erstellt und diesen statt Pointer verwendet.

Vielen Dank

MfG
Woto