Changeset 77 for Generics/TemplateGenerics/Generic/ListImplementation.tpl

Timestamp:

Oct 29, 2010, 1:26:32 PM (14 years ago)

Author:

george

Message:

• Added: Generic range type.
• Added: Specialized TListByte type which si simply memory block.
• Added: New functionality to TGList.

File:

• Generics/TemplateGenerics/Generic/ListImplementation.tpl (modified) (7 diffs)

Generics/TemplateGenerics/Generic/ListImplementation.tpl

@@ -109 +109 @@
 end;
 
-function TGList.IndexOf(Item: TListItem): TListIndex;
-begin
-  Result := 0;
+function TGList.IndexOf(Item: TListItem; Start: TListIndex): TListIndex;
+begin
+  Result := Start;
   while (Result < FCount) and
   not CompareMem(Addr(FItems[Result]), Addr(Item), SizeOf(TListItem)) do
@@ -138 +138 @@
     I := I + 1;
   end;
+end;
+
+function TGList.IndexOfList(List: TGList; Start: TListIndex): TListIndex;
+var
+  I: TListIndex;
+begin
+  if List.Count > 0 then begin
+    Result := IndexOf(List[0], Start);
+    if Result <> -1 then begin
+      I := 1;
+      while I < List.Count do begin
+        if not CompareMem(Addr(FItems[Result + I]), Addr(List.FItems[I]), SizeOf(TListItem)) then begin
+          Result := -1;
+          Break;
+        end;
+        I := I + 1;
+      end;
+    end;
+  end else Result := -1;
 end;
 
@@ -200 +219 @@
 end;
 
-(*function TGList.Equals(Obj: TObject): Boolean;
-var
-  I: TListIndex;
-begin
-  Result := Count = (Obj as TGList).Count;
+function TGList.Equals(List: TGList): Boolean;
+var
+  I: TListIndex;
+begin
+  Result := Count = List.Count;
   if Result then begin
     I := 0;
     while I < Count do begin
-      if Items[I] <> (Obj as TGList)[I] then begin
+      if not CompareMem(Addr(FItems[I]), Addr(List.FItems[I]), SizeOf(TListItem)) then begin
         Result := False;
         Break;
@@ -215 +234 @@
     end;
   end;
-end;*)
+end;
 
 procedure TGList.Reverse;
@@ -241 +260 @@
   while I <= High(Values) do begin
     Add(Values[I]);
+    I := I + 1;
+  end;
+end;
+
+procedure TGList.SetArray(Values: array of TListItem);
+var
+  I: TListIndex;
+begin
+  Clear;
+  I := 0;
+  while I <= High(Values) do begin
+    Add(Values[I]);
+    I := I + 1;
+  end;
+end;
+
+procedure TGList.InsertArray(Index: TListIndex; Values: array of TListItem);
+var
+  I: TListIndex;
+begin
+  I := 0;
+  while I <= High(Values) do begin
+    Insert(Index + I, Values[I]);
     I := I + 1;
   end;
@@ -255 +297 @@
     if I < (Count - 1) then
       Result := Result + Separator;
+    I := I + 1;
+  end;
+end;
+
+procedure TGList.Perform(Operation: TGListOperation);
+var
+  I: TListIndex;
+begin
+  I := 0;
+  while I < Count do begin
+    Operation(Self, @FItems[I]);
     I := I + 1;
   end;
@@ -309 +362 @@
 end;
 
+procedure TGList.Fill(Start, Count: TListIndex; Value: TListItem);
+begin
+  while Count > 0 do begin
+    Items[Start] := Value;
+    Count := Count - 1;
+    Start := Start + 1;
+  end;
+end;
+
 procedure TGList.Exchange(Index1, Index2: TListIndex);
 var