home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 February / Chip_2000-02_cd.bin / zkuste / Delphi / navody / tt / objvm.exe / UNITS / Value.pas < prev    next >
Pascal/Delphi Source File  |  1998-02-25  |  317b  |  17 lines
  1. unit Value;
  2.  
  3. interface
  4. uses Classes;
  5. type TValue=class(TPersistent)
  6.      public 
  7.        v:Variant;
  8.        procedure Assign(a:TPersistent);override;
  9.      end;
  10. implementation
  11. procedure TValue.Assign;
  12.           begin
  13.             if a is TValue then
  14.               v:=(a as TValue).v;
  15.           end;
  16. end.
  17.