uitestimp.pas

一个基于不需引擎的文件管理系统,使用了许多界面比较好的控件

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.