paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 10:45:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* temporarly disabled GetInterface(iidstr: .... to keep fpc compiling

Browse Source 
git-svn-id: trunk@12691 -
This commit is contained in:
ivost 2009-02-06 01:37:52 +00:00
parent c61a0784cb
commit 7f2c77a407
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/objpas.inc
View File

@ -676,10 +676,10 @@
Result := getcorbainterfacebyentry(self, getinterfaceentrybystr(iidstr), obj);
end;
function TObject.getinterface(const iidstr : string;out obj) : boolean;
{function TObject.getinterface(const iidstr : string;out obj) : boolean;
begin
Result := getinterfacebystr(iidstr,obj);
end;
end;}
class function TObject.getinterfaceentry(const iid : tguid) : pinterfaceentry;
var

2
rtl/inc/objpash.inc
View File

@ -209,7 +209,7 @@
{ interface functions }
function GetInterface(const iid : tguid; out obj) : boolean;
function GetInterface(const iidstr : string;out obj) : boolean;
//function GetInterface(const iidstr : string;out obj) : boolean;
function GetInterfaceByStr(const iidstr : string; out obj) : boolean;
class function GetInterfaceEntry(const iid : tguid) : pinterfaceentry;
class function GetInterfaceEntryByStr(const iidstr : string) : pinterfaceentry;