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