Changeset 347 for trunk/ItemList.pas

Timestamp:

Dec 26, 2024, 11:48:56 AM (17 hours ago)

Author:

chronos

Message:

• Modified: Empty interface reference counting methods.

File:

• trunk/ItemList.pas (modified) (2 diffs)

trunk/ItemList.pas

@@ -107 +107 @@
     function GetCount: SizeInt; override;
   public
-  type
-  var
     NewId: Integer;
     function GetName: string;
     function GetItemFields: TItemFields;
     function Remove(constref AValue: TItem): SizeInt;
-    function Add(constref AValue: TItem): SizeInt;
+    function Add(constref AValue: TItem): SizeInt; overload;
     function CreateItem(Name: string = ''): T; virtual;
     function CreateBaseItem(Name: string = ''): TItem;
@@ -255 +253 @@
   {$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
 begin
-  Result := 0;
+  if GetInterface(IID, Obj) then Result := 0
+    else Result := E_NOINTERFACE;
 end;
 
 function TItemList<T>._AddRef: LongInt; {$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
 begin
-  Result := 0;
+  Result := -1;
 end;
 
 function TItemList<T>._Release: LongInt; {$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
 begin
-  Result := 0;
+  Result := -1;
 end;