ConvertIntf.pas
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:1k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. unit ConvertIntf;
  2. interface
  3. type
  4.   IConvert = interface(IInvokable)
  5.   ['{FF1EAA45-0B94-4630-9A18-E768A91A78E2}']
  6.     function ConvertCurrency (Source, Dest: string; Amount: Double): Double; stdcall;
  7.     function ToEuro (Source: string; Amount: Double): Double; stdcall;
  8.     function FromEuro (Dest: string; Amount: Double): Double; stdcall;
  9.     function TypesList: string; stdcall;
  10. end;
  11. implementation
  12. uses
  13.   InvokeRegistry;
  14. initialization
  15.   InvRegistry.RegisterInterface(TypeInfo(IConvert));
  16. end.