Changeset 326 for Generics/NativeGenerics/Units/GenericList.pas

Timestamp:

Feb 8, 2012, 2:13:08 PM (13 years ago)

Author:

chronos

Message:

• Modified: TGTree structure.

File:

• Generics/NativeGenerics/Units/GenericList.pas (modified) (12 diffs)

Generics/NativeGenerics/Units/GenericList.pas

@@ -93 +93 @@
   end;
 
-  TListObject<TItem> = class(TGList<TItem>)
+  TGObjectList<TItem> = class(TGList<TItem>)
   private
     procedure Put(Index: Integer; const AValue: TItem); override;
@@ -105 +105 @@
   end;
 
-  TListString<TItem> = class(TGList<TItem>)
+  TGStringList<TItem> = class(TGList<TItem>)
   private
   public
@@ -603 +603 @@
 end;
 
-{ TListObject }
-
-procedure TListObject<TItem>.Assign(Source: TGList<TItem>);
+{ TGObjectList }
+
+procedure TGObjectList<TItem>.Assign(Source: TGList<TItem>);
 begin
   Clear;
@@ -612 +612 @@
 end;
 
-procedure TListObject<TItem>.Put(Index: Integer; const AValue: TItem);
+procedure TGObjectList<TItem>.Put(Index: Integer; const AValue: TItem);
 begin
   if OwnsObjects then FItems[Index].Free;
@@ -618 +618 @@
 end;
 
-procedure TListObject<TItem>.Delete(Index: Integer);
+procedure TGObjectList<TItem>.Delete(Index: Integer);
 begin
   if OwnsObjects then FItems[Index].Free;
@@ -624 +624 @@
 end;
 
-procedure TListObject<TItem>.Clear;
+procedure TGObjectList<TItem>.Clear;
 var
   I: Integer;
@@ -638 +638 @@
 end;
 
-constructor TListObject<TItem>.Create;
+constructor TGObjectList<TItem>.Create;
 begin
   inherited;
@@ -644 +644 @@
 end;
 
-destructor TListObject<TItem>.Destroy;
+destructor TGObjectList<TItem>.Destroy;
 begin
   Clear;
@@ -650 +650 @@
 end;
 
-{ TListString }
-
-procedure TListString<TItem>.Assign(Source: TGList<TItem>);
+{ TGStringList }
+
+procedure TGStringList<TItem>.Assign(Source: TGList<TItem>);
 begin
   Clear;
@@ -658 +658 @@
 end;
 
-procedure TListString<TItem>.Delete(Index: Integer);
+procedure TGStringList<TItem>.Delete(Index: Integer);
 begin
   FItems[Index] := '';
@@ -664 +664 @@
 end;
 
-procedure TListString<TItem>.Clear;
+procedure TGStringList<TItem>.Clear;
 var
   I: Integer;
@@ -676 +676 @@
 end;
 
-constructor TListString<TItem>.Create;
+constructor TGStringList<TItem>.Create;
 begin
   inherited;
 end;
 
-destructor TListString<TItem>.Destroy;
+destructor TGStringList<TItem>.Destroy;
 begin
   Clear;