summaryrefslogtreecommitdiff
path: root/plugins/!NotAdopted/Chess4Net/NonRefInterfacedObjectUnit.pas
diff options
context:
space:
mode:
Diffstat (limited to 'plugins/!NotAdopted/Chess4Net/NonRefInterfacedObjectUnit.pas')
-rw-r--r--plugins/!NotAdopted/Chess4Net/NonRefInterfacedObjectUnit.pas44
1 files changed, 0 insertions, 44 deletions
diff --git a/plugins/!NotAdopted/Chess4Net/NonRefInterfacedObjectUnit.pas b/plugins/!NotAdopted/Chess4Net/NonRefInterfacedObjectUnit.pas
deleted file mode 100644
index a6a32f2901..0000000000
--- a/plugins/!NotAdopted/Chess4Net/NonRefInterfacedObjectUnit.pas
+++ /dev/null
@@ -1,44 +0,0 @@
-////////////////////////////////////////////////////////////////////////////////
-// All code below is exclusively owned by author of Chess4Net - Pavel Perminov
-// (packpaul@mail.ru, packpaul1@gmail.com).
-// Any changes, modifications, borrowing and adaptation are a subject for
-// explicit permition from the owner.
-
-unit NonRefInterfacedObjectUnit;
-
-interface
-
-type
- TNonRefInterfacedObject = class(TObject, IInterface)
- protected
- function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
- function _AddRef: Integer; stdcall;
- function _Release: Integer; stdcall;
- end;
-
-implementation
-
-////////////////////////////////////////////////////////////////////////////////
-// TNonRefInterfacedObject
-
-function TNonRefInterfacedObject.QueryInterface(const IID: TGUID; out Obj): HResult;
-begin
- if GetInterface(IID, Obj) then
- Result := 0
- else
- Result := E_NOINTERFACE;
-end;
-
-
-function TNonRefInterfacedObject._AddRef: Integer;
-begin
- Result := -1;
-end;
-
-
-function TNonRefInterfacedObject._Release: Integer;
-begin
- Result := -1;
-end;
-
-end.