Changeset 345 for trunk/ItemList.pas

Timestamp:

Dec 23, 2024, 11:25:36 AM (8 hours ago)

Author:

chronos

Message:

• Modified: Improved test cases.

File:

• trunk/ItemList.pas (modified) (1 diff)

trunk/ItemList.pas

@@ -253 +253 @@
 end;
 
-function TItemList<T>.QueryInterface(constref iid: tguid; out obj): longint;
+function TItemList<T>.QueryInterface(constref iid: tguid; out obj): LongInt;
   stdcall;
 begin
-end;
-
-function TItemList<T>._AddRef: Longint; stdcall;
-begin
-end;
-
-function TItemList<T>._Release: Longint; stdcall;
-begin
+  Result := 0;
+end;
+
+function TItemList<T>._AddRef: LongInt; stdcall;
+begin
+  Result := 0;
+end;
+
+function TItemList<T>._Release: LongInt; stdcall;
+begin
+  Result := 0;
 end;