uitestimp.pas

来自「一个基于不需引擎的文件管理系统,使用了许多界面比较好的控件」· 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.