Pointer auf Prozeduren

[MaOfDe]

@sniper_w:
Wie gesagt, andere Wege sind mir bekannt, aber ich wähle diesen, weil er irgendwie Klasse hat *g*.

Bei mir siehts zurzeit so aus:

Code:

type
  TProc = procedure;
...
constructor TKlasseB.Create(A: TKlasseA);
  var P: TProc;
begin
  P:=Self.Proc;
  A.List.Add(@P);
end;

procedure TKlasseB.Proc;
begin
  //bla
end;

...

procedure TKlasseA.Abarbeiten;
  var I: Integer;
begin
  for I := 0 to List.Count-1 do TProc(List[I]^);
  //hier kommt ne hübsche EAccessViolation 
end;