【delphi开源代码栏目提醒】:网学会员为需要delphi开源代码的朋友们搜集整理了account_impl.pas相关资料，希望对各位网友有所帮助!

    unit account_impl;
    
    {This file was generated on 15 Jun 2000 15:10:50 GMT by version 03.03.03.C1.04}
    {of the Inprise VisiBroker idl2pas CORBA IDL compiler.                        }
    
    {Please do not edit the contents of this file. You should instead edit and    }
    {recompile the original IDL which was located in the file account.idl.        }
    
    {Delphi Pascal unit      : account_impl                                       }
    {derived from IDL module : default                                            }
    
    
    
    interface
    
    uses
      SysUtils,
      CORBA,
      account_i,
      account_c;
    
    type
      TAccount = class;
    
      TAccount = class(TInterfacedObject, account_i.Account)
      protected
        _balance : Single;
      public
        constructor Create;
        function balance : Single;
      end;
    
    
    implementation
    
    constructor TAccount.Create;
    begin
      inherited;
      _balance := Random * 10000;
    end;
    
    function  TAccount.balance : Single;
    begin
      Result := _balance;
      writeln('Got a balance call from a client...');
    end;
    
    
    initialization
      randomize;
    
    end.
    

上一篇：account_i.pas
下一篇：法律专业开题报告范文