ConvertIntf.pas
资源名称:delphi.rar [点击查看]
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:1k
源码类别:
Delphi控件源码
开发平台:
Delphi
- unit ConvertIntf;
- interface
- type
- IConvert = interface(IInvokable)
- ['{FF1EAA45-0B94-4630-9A18-E768A91A78E2}']
- function ConvertCurrency (Source, Dest: string; Amount: Double): Double; stdcall;
- function ToEuro (Source: string; Amount: Double): Double; stdcall;
- function FromEuro (Dest: string; Amount: Double): Double; stdcall;
- function TypesList: string; stdcall;
- end;
- implementation
- uses
- InvokeRegistry;
- initialization
- InvRegistry.RegisterInterface(TypeInfo(IConvert));
- end.