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

Timestamp:

Sep 24, 2012, 1:47:39 PM (12 years ago)

Author:

chronos

Message:

• Modified: Custom types for TemplateGenerics moved from global space to class local space.
• Added: Partial GenericFileList class.

File:

• Generics/TemplateGenerics/Generic/GenericList.inc (modified) (10 diffs)

Generics/TemplateGenerics/Generic/GenericList.inc

@@ -12 +12 @@
   // - all items operations (Clear, Reverse, Sort)
 
-  TGList = class;
-
-  TGListSortCompare = function(Item1, Item2: TGListItem): Integer of object;
-  TGListToStringConverter = function(Item: TGListItem): string;
-  TGListFromStringConverter = function(Text: string): TGListItem;
-  TGListItemArray = array of TGListItem;
+  TGAbstractList = class
+
+  end;
 
   // TGList<TGListIndex, TGListItem> = class
-  TGList = class
+  TGList = class(TGAbstractList)
+  public
+    type
+      PItem = ^TGListItem;
+      TSortCompare = function(Item1, Item2: TGListItem): Integer of object;
+      TToStringConverter = function(Item: TGListItem): string;
+      TFromStringConverter = function(Text: string): TGListItem;
+      TItemArray = array of TGListItem;
   private
     FItems: array of TGListItem;
@@ -34 +38 @@
     procedure SetLast(AValue: TGListItem);
     procedure SetFirst(AValue: TGListItem);
-    procedure QuickSort(L, R : TGListIndex; Compare: TGListSortCompare);
+    procedure QuickSort(L, R : TGListIndex; Compare: TSortCompare);
   protected
     procedure Put(Index: TGListIndex; const AValue: TGListItem); virtual;
     procedure SetCount(const AValue: TGListIndex); virtual;
   public
-    type
-      PItem = ^TGListItem;
     function CompareMem(P1, P2: Pointer; Length: cardinal): Boolean; inline;
     function Add(Item: TGListItem): TGListIndex;
@@ -53 +55 @@
     function EqualTo(List: TGList): Boolean;
     procedure Exchange(Index1, Index2: TGListIndex);
-    procedure Explode(Text, Separator: string; Converter: TGListFromStringConverter; SlicesCount: Integer = -1);
+    procedure Explode(Text, Separator: string; Converter: TFromStringConverter; SlicesCount: Integer = -1);
     function Extract(Item: TGListItem): TGListItem;
     property First: TGListItem read GetFirst write SetFirst;
     procedure Fill(Start, Count: TGListIndex; Value: TGListItem);
-    function GetArray(Index, ACount: TGListIndex): TGListItemArray;
+    function GetArray(Index, ACount: TGListIndex): TItemArray;
     procedure GetList(List: TGList; Index, ACount: TGListIndex);
     procedure GetBuffer(Index: TGListIndex; var Buffer; Count: TGListIndex);
-    function Implode(Separator: string; Converter: TGListToStringConverter): string;
+    function Implode(Separator: string; Converter: TToStringConverter): string;
     function IndexOf(Item: TGListItem; Start: TGListIndex = 0): TGListIndex; virtual;
     function IndexOfList(List: TGList; Start: TGListIndex = 0): TGListIndex;
@@ -77 +79 @@
       SourceIndex, SourceCount: TGListIndex);
     procedure ReplaceBuffer(Index: TGListIndex; var Buffer; Count: TGListIndex);
-    procedure Sort(Compare: TGListSortCompare);
+    procedure Sort(Compare: TSortCompare);
     procedure SetArray(Values: array of TGListItem);
     procedure BeginUpdate;
@@ -88 +90 @@
     property OnUpdate: TNotifyEvent read FOnUpdate write FOnUpdate;
   end;
-  
+
 {$UNDEF INTERFACE}
 {$ENDIF}
@@ -237 +239 @@
 end;
 
-function TGList.GetArray(Index, ACount: TGListIndex): TGListItemArray;
+function TGList.GetArray(Index, ACount: TGListIndex): TItemArray;
 var
   I: Integer;
@@ -255 +257 @@
 end;
 
-procedure TGList.QuickSort(L, R: TGListIndex; Compare: TGListSortCompare);
+procedure TGList.QuickSort(L, R: TGListIndex; Compare: TSortCompare);
 var
   I, J: TGListIndex;
@@ -524 +526 @@
 end;
 
-procedure TGList.Sort(Compare: TGListSortCompare);
+procedure TGList.Sort(Compare: TSortCompare);
 begin
   if FCount > 1 then
@@ -571 +573 @@
 end;
 
-function TGList.Implode(Separator: string; Converter: TGListToStringConverter): string;
+function TGList.Implode(Separator: string; Converter: TToStringConverter): string;
 var
   I: TGListIndex;
@@ -585 +587 @@
 end;
 
-procedure TGList.Explode(Text, Separator: string; Converter: TGListFromStringConverter; SlicesCount: Integer = -1);
+procedure TGList.Explode(Text, Separator: string; Converter: TFromStringConverter; SlicesCount: Integer = -1);
 begin
   Clear;