Inkompatible Typen: Reguläre Prozedure und Methodenzeiger

[Ares]

Hallo!

Folgende Situation:

Delphi-Quellcode:

unit A;

type
  TPassiertWas = procedure(Param1, Param2: String);

  TMyObject = class(TObject);
  private
    FOnPassiertWas : TPassiertWas;
  public
    procedure TuWas;
    property OnPassiertWas: TPassiertWas read FOnPassiertWas  write FOnPassiertWas;
  end;

...

procedure TMyObject.TuWas;
begin
  ...
  if (Assigned(FOnPassiertWas) then FOnPassiertWas('eins', 'zwei');
end;

Delphi-Quellcode:

unit B;

uses
  A;

type
  TMyIrgenwas = class(TObject);
  private
    FMyObj: TMyObject;
    procedure Reagiere(Param1, Param2: String);
  public
    constructor Create;
  end;

...

constructor TMyIrgenwas.Create;
begin
  FMyObj := TMyObject.Create;
  FMyObj.OnPassiertWas := Reagiere;  // <-- Fehler: Inkompatible Typen: 'Reguläre Prozedur und Methodenzeiger'
end;

procedure TMyIrgendwas.Reagiere;
begin
  MachWas();
end;

Was mache ich hier falsch? Warum kann ich dem Eventhandler OnPassiertWas nicht die Methode Reagiere zuweisen? Reagiere ist eine Methode einer klasse und keine reguläre Prozedur. Wo liegt also der Fehler?

Besten Dank
Ares

[sirius]

Delphi-Quellcode:

type 
  TPassiertWas = procedure(Param1, Param2: String) of object;

[Christian Seehase]

Moin Ares,

wie die Fehlermeldung schon sagt.
Du versuchst eine Prozedur zu übergeben, und keine Methode.

Eine Prozedur (Funktion) hat die Parameter, die man sehen kann, eine Methode hat hingegen noch einen unsichtbaren Parameter self.
Dieser befindet sich vor den anderen.
Damit die interne Struktur stimmt muss die Prozedur so erweitert werden, wie Sirius es geschrieben hat.

[himitsu]

MUSS is so ein unschönes Wort und KANN ist doch auch nett? :stupid:

Delphi-Quellcode:

type TPassiertWas = procedure(Self: TObject; Param1, Param2: String);

ja und sowas gibt's och noch

Delphi-Quellcode:

type 
  TMyObject = class(TObject);
    public
      class procedure TuWas;
    end;

TPassiertWas = procedure(Self: TClass; Param1, Param2: String);

aber sirius's Vorschlag ist wohl etwas verständlicher :roll:

[Christian Seehase]

Moin Himitsu,

klar, so geht es wohl auch, aber die andere Variante ist doch etwas sauberer ;-)