home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 February / Chip_2000-02_cd.bin / zkuste / Delphi / navody / tt / objvm.exe / UNITS / ObjectValue.pas < prev    next >
Pascal/Delphi Source File  |  1998-06-03  |  859b  |  34 lines
  1. unit ObjectValue;
  2.  
  3. interface
  4. uses LangValue,
  5.      Classes,ConstValues,MemberValue,FreeMember;
  6. type TObjectValue=class(TConstValues)
  7.      protected
  8.      public
  9.        Target:TObject;
  10.        constructor Create(aTarget:TObject);
  11.      end;
  12. type TDefObjectValue=class(TObjectValue)
  13.         constructor Create(aTarget:TObject);
  14.         destructor  Destroy;override;
  15.      end;
  16. implementation
  17. uses VarLangValue,ProxyValue;
  18. constructor TObjectValue.Create;
  19.             begin
  20.               Inherited Create;
  21.               Target:=aTarget;
  22.             end;
  23. constructor TDefObjectValue.Create;
  24.             begin
  25.               Inherited Create(aTarget);
  26.               AddValue('Free',TFreeMember.Create(Self));
  27.             end;
  28. destructor  TDefObjectValue.Destroy;
  29.             begin
  30.               inherited Destroy;
  31.             end;
  32.  
  33. end.
  34.