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