Changeset 251 for Generics/TemplateGenerics/Generic/GenericListString.inc

Timestamp:

Jun 13, 2011, 8:21:12 AM (13 years ago)

Author:

george

Message:

• Modified: DebugLog transformed to component.
• Fixed: String compare for template generics.

File:

• Generics/TemplateGenerics/Generic/GenericListString.inc (modified) (2 diffs)

Generics/TemplateGenerics/Generic/GenericListString.inc

@@ -18 +18 @@
     procedure Clear; override;
     procedure Assign(Source: TGList); override;
+    function IndexOf(Item: TGListItem; Start: TGListIndex = 0): TGListIndex; override;
     constructor Create;
     destructor Destroy; override;
@@ -71 +72 @@
 end;
 
+function TGListString.IndexOf(Item: TGListItem; Start: TGListIndex): TGListIndex;
+begin
+  Result := Start;
+  while (Result < Count) and
+  (CompareStr(FItems[Result], Item) = -1) do
+    Result := Result + 1;
+  if Result = FCount then Result := -1;
+end;
+
 constructor TGListString.Create;
 begin