Gestern bin ich fast verzweifelt, bis ich meinen Schreibfehler entdeckt habe...
Delphi-Quellcode:
procedure MyProc(aParam: IInterface);
var lMyThing: TMyThing; // richtig wäre natürlich IMyThing
begin
if Supports(aParam, IMyThing, lMyThing) then
lMyThing.DoIt;
end;
In DoIt wurde eingesprungen, aber sofort danach gab es einen Zugriffsfehler.
Wäre sicher nicht verkehrt, wenn der Compiler hier abbrechen oder wenigstens warnen würde.
Vielleicht will ja mal jemand einen
QC-Eintrag machen (ich bin da nicht mehr UpToDate).