uILogic.pas 452 B

123456789101112131415161718192021222324252627
  1. unit uILogic;
  2. interface
  3. type
  4. /// <summary>
  5. /// 合计插件接口
  6. /// </summary>
  7. ISumExp = interface(IInterface)
  8. ['{D02C3764-1231-46EC-8C74-95DFBF2A1ED5}']
  9. function sum(i:Integer; j:Integer):Integer; stdcall;
  10. end;
  11. /// <summary>
  12. /// 日志插件接口
  13. /// </summary>
  14. IMyBeanLogger = interface(IInterface)
  15. ['{B872909D-99FF-47B9-A3F9-8CB9C26A8FD5}']
  16. procedure LogMessage(s: PAnsiChar); stdcall;
  17. end;
  18. implementation
  19. end.