Proceduren vergleichen

[thomasch]

Hallo,
ich habe bei mir folgendes Konstrukt:

Delphi-Quellcode:

Type
  TDofunction = procedure;

  TMeineFunction = class
    MProcedure     : TDofunction;

[...]
procedure foo;

begin

  Mainfunction:=TMeineFunction.Create;
  Mainfunction.MProcedure:=foo
[...]
 dosomething;
end;

procedure Bar;

begin

  Mainfunction:=TMeineFunction.Create;
  Mainfunction.MProcedure:=bar
[...]
  dosomething;
end;

Jetzt möchte ich irgendwie abfragen, welche Funkion irgendwann mal gestartet wurde. Leider funktioniert

Delphi-Quellcode:

procedure dosomething;
begin
  if Mainfunction.MProcedure=foo then
   [...]
  end;
end;

nicht. Ich könnte jetzt TMeineFunction um einen String erweitern - aber gibt es da nicht einen eleganteren Weg?

Danke schonmal


Thomasch

[himitsu]

Mit deinem Code würden die Funktionen (wenn es welche wären) aufgerufen und deren Ergebnis verglichen ... da's aber Prozeduren sind, meckert der wegen des fehlenden Result.

Du willst ja nur die Adressen vergleichen :zwinker:

Code:

if [color=#ff0000][b]@[/b][/color]Mainfunction.MProcedure = [color=#ff0000][b]@[/b][/color]foo then