home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 February / Chip_2000-02_cd.bin / zkuste / Delphi / navody / tt / objvm.exe / UNITS / uValues.pas < prev    next >
Pascal/Delphi Source File  |  1998-02-19  |  518b  |  19 lines
  1. unit uValues;
  2.  
  3. interface
  4. uses Value;
  5. type TValues=class
  6.      protected
  7.         function rdValues(No:integer):TValue;virtual;abstract;
  8.         function rdCount:integer;virtual;abstract;
  9.         procedure wrCount(a:Integer);virtual;abstract;
  10.      public
  11.         property Values[No:Integer]:TValue read rdValues;default;
  12.         property Count:integer read rdCount write wrCount;
  13.         procedure Add(a:TValue);virtual;abstract;
  14.         procedure Clear;virtual;abstract;
  15.      end;
  16. implementation
  17.  
  18. end.
  19.