土
土土
Unregistered / Unconfirmed
GUEST, unregistred user!
vb中的函数
Public Function AddI(la As Integer, lb As Integer)
AddI = la + lb
End Function
delphi中调用
implementation
function AddI(var la:Integer;lb: Integer): Integer
stdcall;external 'ADDL.dll';
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
lresult : Integer;
i,j : Integer;
begin
i:= 1;
j:= 3;
lresult := AddI(i,j);
end;
Public Function AddI(la As Integer, lb As Integer)
AddI = la + lb
End Function
delphi中调用
implementation
function AddI(var la:Integer;lb: Integer): Integer
stdcall;external 'ADDL.dll';
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
lresult : Integer;
i,j : Integer;
begin
i:= 1;
j:= 3;
lresult := AddI(i,j);
end;