Ein Event 2 Empfänger? Geht das?

[Corelgott]

hmm würde dann jungefähr so aussehen:

Delphi-Quellcode:

...
_events        : Array of TNotifyEvent;
...


procedure TObj.raiseOnChange;
var
  i : Integer;
begin
  if length(_events) > 0 then
    for i := 0 to length(_events) - 1 do
     _events[i](self);
end;

function TObj._getEvent: TNotifyEvent;
begin
  result := _events[0];
end;

oder?

was mache ich mit dem fall, dass _events[0] nix is? nil kann ich nicht zurückgeben...
(bzw. habe ich keinen plan wie ich dann "nil" zu TNotifyEvent casten sollte / kann )

Und noch was zur generellen lösung:
da bekomme ich wenn ich mein Programm beende den Fehler s.o. "%p ungültig oder Argument nicht kompatibel"...
hmmm.... so ganz kann es das ned sein... glaube ich...

Oder missverstehe ich dich?

thx
Corelgott