> Am Sonntag, den 18.05.2008, 23:07 +0200 schrieb Marco van de Voort: > begin > if (fObservers.count<=0) then exit; > for i:=0 to fObservers.count-1 do begin > if ((fObservers[i] as IObserver)=obsv) then begin > fObservers.delete(i); > fObservers.pack; > exit;
I think this works, assuning fobservers is an array or tlist of objects, because you only go from object to interface, not from interface to object. _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
