type
pcoinsrec=^tcoinsrec;
tcoinsrec=record
quarters,dimes,nickels,pennies:word;
end;
{$ifndef pennieslib}
function penniestocoins(totpennies:word;coinsrec):word;stdcall;
{$endif}
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$ifndef pennieslib}
function penniestocoins;external 'pennieslib.dll' name 'penniestocoins';
{$endif}
end.
DLL代码:
ibrary PENNIESLIB;
{$define pennieslib}
uses
sysutils,
classes,
penniesint,
Unit1 in 'Unit1.pas' {Form1};
function penniestocoins(totpennies:word;coinsrec:pcoinsrec):word;stdcall;
begin
result:=totpennies;//将结果存放在 result
{计算quarters,dimes,nickels,pennies的值 }
quarters:=totpennies div 25;
totpennies:= totpennies-quarters*25;
dimes:= totpennies div 10;
nickels:=totpennies div 5;
totpennies:=totpennies-nickels*5;
pennies:=totpennies;
end;
end;
{引出函数名}
exports
penniestocoins;
end.