size : 1349 uploaded_on : Thu Aug 19 00:00:00 1999 modified_on : Wed Dec 8 14:02:53 1999 title : TIntegerList org_filename : TIntegerList.txt author : Jerry Davis authoremail : JerryD@eaglecmms.com description : A StringList-like class for integers keywords : tested : not tested yet submitted_by : The CKB Crew submitted_by_email : ckb@netalive.org uploaded_by : nobody modified_by : nobody owner : nobody lang : plain file-type : text/plain category : delphi-misc __END_OF_HEADER__ interface uses Classes ... type TIntegerList = class(TList) protected function Get(Index: Integer): Integer; procedure Put(Index: Integer; Item: Integer); public function Add(Item: Integer): Integer; function First: Integer; function IndexOf(Item: Integer): Integer; procedure Insert(Index: Integer; Item: Integer); function Last: Integer; function Remove(Item: Integer): Integer; property Items[Index: Integer]: Integer read Get write Put; = default; end; implementation { TIntegerList } function TIntegerList.Add(Item: Integer): Integer; begin inherited Add(Pointer(Item)); end; function TIntegerList.First: Integer; begin result := Integer(inherited First); end; function TIntegerList.Get(Index: Integer): Integer; begin result := Integer(inherited Get(Index)); end; function TIntegerList.IndexOf(Item: Integer): Integer; begin result := inherited IndexOf(Pointer(Item)); end; procedure TIntegerList.Insert(Index, Item: Integer); begin inherited Insert(Index, Pointer(Item)) end; function TIntegerList.Last: Integer; begin result := Integer(inherited Last); end; procedure TIntegerList.Put(Index, Item: Integer); begin inherited Put(Index, Pointer(Item)); end; function TIntegerList.Remove(Item: Integer): Integer; begin result := inherited Remove(Pointer(Item)); end;