- Timestamp:
- Jun 13, 2011, 8:21:12 AM (13 years ago)
- Location:
- Generics/TemplateGenerics/Generic
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
Generics/TemplateGenerics/Generic/GenericList.inc
r247 r251 42 42 function GetArray: TGListItemArray; 43 43 function Implode(Separator: string; Converter: TGListToStringConverter): string; 44 function IndexOf(Item: TGListItem; Start: TGListIndex = 0): TGListIndex; 44 function IndexOf(Item: TGListItem; Start: TGListIndex = 0): TGListIndex; virtual; 45 45 function IndexOfList(List: TGList; Start: TGListIndex = 0): TGListIndex; 46 46 procedure Insert(Index: TGListIndex; Item: TGListItem); -
Generics/TemplateGenerics/Generic/GenericListString.inc
r112 r251 18 18 procedure Clear; override; 19 19 procedure Assign(Source: TGList); override; 20 function IndexOf(Item: TGListItem; Start: TGListIndex = 0): TGListIndex; override; 20 21 constructor Create; 21 22 destructor Destroy; override; … … 71 72 end; 72 73 74 function TGListString.IndexOf(Item: TGListItem; Start: TGListIndex): TGListIndex; 75 begin 76 Result := Start; 77 while (Result < Count) and 78 (CompareStr(FItems[Result], Item) = -1) do 79 Result := Result + 1; 80 if Result = FCount then Result := -1; 81 end; 82 73 83 constructor TGListString.Create; 74 84 begin
Note:
See TracChangeset
for help on using the changeset viewer.