home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 February / Chip_2000-02_cd.bin / zkuste / Delphi / navody / tt / objvm.exe / UNITS / ValueSubSet.pas < prev    next >
Pascal/Delphi Source File  |  1998-02-19  |  801b  |  33 lines
  1. unit ValueSubSet;
  2.  
  3. interface
  4. uses uValues,
  5.      Value;
  6. type TValueSubSet=class(TValues)
  7.      protected
  8.         fValues:TValues;
  9.         fStart,fCount:Integer;
  10.         function rdValues(No:integer):TValue;override;
  11.         function rdCount:integer;override;
  12.      public
  13.         constructor Create(aValues:TValues;aStart,aCount:Integer);
  14.      end;
  15. implementation
  16. function    TValueSubSet.rdValues;
  17.             begin
  18.               Result:=fValues[No+fStart];
  19.             end;
  20. constructor TValueSubSet.Create;
  21.             begin
  22.               Inherited Create;
  23.               fValues:=aValues;
  24.               fStart:=aStart;
  25.               fCount:=aCount;
  26.             end;
  27. function    TValueSubSet.rdCount;
  28.             begin
  29.               Result:=fCount
  30.             end;
  31.  
  32. end.
  33.