function _GetBillValue(var nValue:Integer):integer;
OK,应该是这个,VC里是取地址,Delphi里就是要传变参,var ...
谢谢楼上的回复为什么nValue取不到值
比如说var nvs:integer; I:integer; begin nvs :=0; I := GetBillValue(nvs); if i = 0 then begin memo1.Lines.Add(inttostr(nvs)); showmessage('获取成功'); end else if i = 1 then showmessage('获取失败'); end; 为什么nvs的值始终为0
OK,应该是这个,VC里是取地址,Delphi里就是要传变参,var ...
比如说var
nvs:integer;
I:integer;
begin
nvs :=0;
I := GetBillValue(nvs);
if i = 0 then
begin
memo1.Lines.Add(inttostr(nvs));
showmessage('获取成功'); end
else
if i = 1 then
showmessage('获取失败');
end;
为什么nvs的值始终为0