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