Delphi中的exports是一个关键字,用于dll项目,指出dll的输出函数。只有在exports中声明的函数才可在外部调用。下面是一个简单的Dll项目:
library dllTest;
uses SysUtils,Classes;
function Test1(a,b:integer):integer;
begin
Result:=a+b;
end;
exports
Test1 index 1;
begin
end.
在这个Dll中我们声明了一个加法函数,然后用exports语句输出它,只有被输出的函数和过程能被其它程序调用。exports语句的语法是:函数名[index <n>],[index <n>]是为函数指定的索引号,以便其它程序确定函数地址。当然也可以不指定,如果没有index关键字,Delphi将根据exports后函数按顺序自动从1分配索引号。
下面是一个封装对象的例子,供大家参考:
创建Demo类,主要是车的继承和合成关系,下面是各个类的继承关系:
类代码:
unit Demo;
interface
uses
SysUtils, Windows, Messages, Classes, Dialogs;
type
TEngine = class(TObject)
private
FCapacity: Integer;
FPower: Integer;
public
constructor create;
procedure start;
procedure stop;
end;
TWheel = class(TObject)
private
FNo: Integer;
FSize: Integer;
FTypeName: string;
procedure check;
public
constructor create(size:Integer;TypeName:string;No:Integer);
end;
TVehicle = class(TObject)
protected
FColor: string;
FMake: string;
FTopSpeed: Intege