home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 10 / ioProg_10.iso / soft / delphi / lezi1a.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-07-01  |  727 b   |  41 lines
  1. unit T_MioVCL1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
  7.  
  8. type
  9.   TMioVCL1 = class(TComponent)
  10.   private
  11.     { Private declarations }
  12.     N1,N2,R:Integer;
  13.   protected
  14.     { Protected declarations }
  15.   public
  16.     { Public declarations }
  17.     Procedure Execute;
  18.   published
  19.     { Published declarations }
  20.     Property Num1:Integer Read N1 Write N1;
  21.     Property Num2:Integer Read N2 Write N2;
  22.     Property Risultato:Integer Read R Write R;
  23.     Property Name;
  24.   end;
  25.  
  26. procedure Register;
  27.  
  28. implementation
  29.  
  30. Procedure TMioVCL1.Execute;
  31.  Begin
  32.   R:=N1+N2;
  33.  End;
  34.  
  35. procedure Register;
  36. begin
  37.   RegisterComponents('Samples', [TMioVCL1]);
  38. end;
  39.  
  40. end.
  41.