Changeset 370 for Generics

Timestamp:

May 31, 2012, 6:29:12 AM (12 years ago)

Author:

chronos

Message:

• Modified: ISPProgrammer now use updated component oriented TJobProgressView from Common package.

File:

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

Generics/TemplateGenerics/Generic/GenericList.inc

@@ -34 +34 @@
     procedure SetLast(AValue: TGListItem);
     procedure SetFirst(AValue: TGListItem);
+    procedure QuickSort(L, R : TGListIndex; Compare: TGListSortCompare);
+  protected
     procedure Put(Index: TGListIndex; const AValue: TGListItem); virtual;
     procedure SetCount(const AValue: TGListIndex); virtual;
-    procedure QuickSort(L, R : TGListIndex; Compare: TGListSortCompare);
   public
     function CompareMem(P1, P2: Pointer; Length: cardinal): Boolean; inline;