Forum: Object-Pascal / Delphi-Language
Delphi
by jaenicke,
26. Nov 2013
Da kommt dann ein Fehler beim Kompilieren. Das ist genau der Grund für meinen Cast auf TObject.
Forum: Object-Pascal / Delphi-Language
Delphi
by jaenicke,
26. Nov 2013
Bei Delphi 5 sieht Supports ja so aus wie du ja sicher schon geschaut hast:
function Supports(const Instance: IUnknown; const Intf: TGUID; out Inst): Boolean;
begin
Result := (Instance <> nil) and (Instance.QueryInterface(Intf, Inst) = 0);
end;
function Supports(Instance: TObject; const Intf: TGUID; out Inst): Boolean;
var
Unk: IUnknown;
begin