Delphi Interface - Supports

Thema durchsuchen

Ansicht

Themen-Optionen

Interface - Supports

Ein Thema von stahli · begonnen am 26. Jul 2016 · letzter Beitrag vom 26. Jul 2016

Vorheriger Beitrag

Nächster Beitrag

stahli

Registriert seit: 26. Nov 2003
Ort: Halle/Saale
4.352 Beiträge

Delphi 11 Alexandria

Interface - Supports

26. Jul 2016, 11:48

Delphi-Version: XE3

Gestern bin ich fast verzweifelt, bis ich meinen Schreibfehler entdeckt habe...

markieren

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).

Stahli