uitestimp.pas

来自「插件开发学习 delphi 适合初学者」· PAS 代码 · 共 26 行

unit uItestImp;

interface

uses SysUtils,uItestInf;

type
  TTest=class(Tinterfacedobject,ITest)
  public
    function xx:integer;stdcall;
  end;

var
  Test:TTest;  

implementation

{ TTest }

function TTest.xx: integer;
begin
  result:=1;
end;

end.