Changeset 270 for Generics/TemplateGenerics/Generic/GenericList.inc

Timestamp:

Aug 23, 2011, 10:04:27 AM (13 years ago)

Author:

george

Message:

• Added: Test of method EqualTo in demo for TListInteger.

File:

• Generics/TemplateGenerics/Generic/GenericList.inc (modified) (1 diff)

Generics/TemplateGenerics/Generic/GenericList.inc

@@ -374 +374 @@
     I := 0;
     while I < Count do begin
-      if not CompareMem(Addr(FItems[I]), Addr(List.FItems[I]), SizeOf(TGListItem)) then begin
+      if not CompareMem(@FItems[I], @List.FItems[I], SizeOf(TGListItem)) then begin
         Result := False;
         Break;