home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 February / Chip_2000-02_cd.bin / zkuste / Delphi / navody / tt / objvm.exe / UNITS / ValueList.pas < prev    next >
Pascal/Delphi Source File  |  1998-02-19  |  1KB  |  54 lines
  1. unit ValueList;
  2.  
  3. interface
  4. uses uValues,
  5.      Value,ObjList;
  6. type TValueList=class(TValues)
  7.      protected
  8.         fValues:TObjList;
  9.         function rdValues(No:integer):TValue;override;
  10.         function rdCount:integer;override;
  11.         procedure wrCount(a:Integer);override;
  12.      public
  13.         procedure Add(a:TValue);override;
  14.         constructor Create;
  15.         destructor  Destroy;override;
  16.         procedure   Clear;override;
  17.      end;
  18. implementation
  19. function    TValueList.rdValues;
  20.             begin
  21.               result:=fValues[No];
  22.             end;
  23. function    TValueList.rdCount;
  24.             begin
  25.               Result:=fValues.COunt;
  26.             end;
  27. procedure   TValueList.wrCount;
  28.             Var i:Integer;
  29.             begin
  30.               for i:=0 to a-Count do
  31.               begin
  32.                 Add(TValue.Create);
  33.               end;
  34.             end;
  35. procedure   TValueList.Add;
  36.             begin
  37.               fValues.Add(a);
  38.             end;
  39. constructor TValueList.Create;
  40.             begin
  41.               Inherited Create;
  42.               fValues:=TObjList.Create;
  43.             end;
  44. destructor  TValueList.Destroy;
  45.             begin
  46.               fValues.Free;
  47.               Inherited Destroy;
  48.             end;
  49. procedure   TValueList.Clear;
  50.             begin
  51.               fValues.Clear;
  52.             end;
  53. end.
  54.