@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;