When I try to compile a unit in delphi mode with the following function
function Implements(out AReference; const AObject: TObject; const
AInterface: TGUID): Boolean;
begin
Result := (AObject is TInterfacedObject) and
((AObject as TInterfacedObject).QueryInterface(AInterface, AReference) = 0);
end;
I get:
Utilities.pas(33,44) Error: identifier idents no member "QueryInterface"
Utilities.pas(33,58) Fatal: Syntax error, ")" expected but "(" found
Utilities.pas(33,58) Error: Compilation aborted
What am I doing wrong?
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
