home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue67 / construc / rates_impl.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-01-31  |  1.2 KB  |  55 lines
  1. unit Rates_impl;
  2.  
  3. {This file was generated on 31 Jan 2001 11:22:44 GMT by version 03.03.03.C1.06}
  4. {of the Inprise VisiBroker idl2pas CORBA IDL compiler.                        }
  5.  
  6. {Please do not edit the contents of this file. You should instead edit and    }
  7. {recompile the original IDL which was located in the file                     }
  8. {D:\usr\bob\magazine\DELPHI.MAG\#67\src\drbob42.idl.                          }
  9.  
  10. {Delphi Pascal unit      : DrBob42_impl                                       }
  11. {derived from IDL module : DrBob42                                            }
  12.  
  13.  
  14. interface
  15. uses
  16.   SysUtils,
  17.   CORBA,
  18.   DrBob42_i,
  19.   DrBob42_c;
  20.  
  21. type
  22.   TRates = class;
  23.  
  24.   TRates = class(TInterfacedObject, DrBob42_i.Rates)
  25.   protected
  26.     FRate: Single;
  27.   public
  28.     constructor Create;
  29.     function  interest_rate: Single;
  30.     procedure SetRate (const rate: Single);
  31.   end;
  32.  
  33. implementation
  34.  
  35. constructor TRates.Create;
  36. begin
  37.   inherited;
  38.   FRate := 1
  39. end;
  40.  
  41. function  TRates.interest_rate: Single;
  42. begin
  43. //writeln('Callback ',FRate:1:2);
  44.   Result := FRate
  45. end;
  46.  
  47. procedure TRates.SetRate(const rate: Single);
  48. begin
  49.   FRate := rate
  50. end;
  51.  
  52.  
  53. initialization
  54.  
  55. end.