Context Navigation

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

Note: See TracChangeset for help on using the changeset viewer.

Changeset 30 for trunk/Components/TemplateGenerics/Generic/GenericListString.inc