home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 March / Chip_2002-03_cd1.bin / zkuste / delphi / kompon / d5 / cak / CAKDIR.ZIP / FClasses.pas < prev    next >
Pascal/Delphi Source File  |  2000-12-14  |  1KB  |  58 lines
  1. unit FClasses;
  2. {-------------------------------------------------------------------------------
  3.   F-Classes unit
  4.   Supplement to the classes unit
  5.  
  6.   reSource version 2.5 BETA
  7.   Copyright (C) 1998-2000 Victor Kasenda / gruv
  8.   http://gruv.tripod.com/resource/
  9.   email: gruv@bigfoot.com
  10.  
  11.  
  12.   contains: TObjList
  13.  
  14.   TObjList
  15.   --------
  16.   Frees up the memory for its items.
  17.   All items assumed to be of TObject type.
  18. -------------------------------------------------------------------------------}
  19.  
  20. (**) interface (**)
  21. uses classes, Forms;
  22.  
  23. type
  24.   TObjList = class(TList)
  25.   public
  26.     destructor Destroy; override;
  27.     procedure Clear; override;
  28.     procedure Delete(Index: Integer);
  29.   end;
  30.  
  31. (**) implementation (**)
  32.  
  33.  
  34. destructor TObjList.Destroy;
  35. begin
  36.   Clear;
  37.   inherited Destroy;
  38. end;
  39.  
  40. procedure TObjList.Clear;
  41. var
  42.   i: integer;
  43. begin
  44.   {Free every entry in the list first}
  45.   for i := Count-1 downto 0 do
  46.     TObject(items[i]).Free;
  47.   inherited Clear;
  48. end;
  49.  
  50. procedure TObjList.Delete(Index: Integer);
  51. begin
  52.   TObject(items[Index]).Free;
  53.   inherited Delete(Index);
  54. end;
  55.  
  56.  
  57. end.
  58.