dll:procedure PP(Q:Tadoquery);
beign
if not Q.active then q.open;
with printer.canvas do begin
font.name:='宋体';
font.size:=18;
textout(100,20,Q.fieldbyname('mc_c').asstring);
end;
end;
exports
pp;
调用
我在申明中定义procedure pp(Q:Tadoquery);stdcall external 'e:\dll.dll'
procedure Tform1.btnonclick(sender);
begin
pp(Q1); //在form1中有Q1,程序报内存出错的错误.????
end;
beign
if not Q.active then q.open;
with printer.canvas do begin
font.name:='宋体';
font.size:=18;
textout(100,20,Q.fieldbyname('mc_c').asstring);
end;
end;
exports
pp;
调用
我在申明中定义procedure pp(Q:Tadoquery);stdcall external 'e:\dll.dll'
procedure Tform1.btnonclick(sender);
begin
pp(Q1); //在form1中有Q1,程序报内存出错的错误.????
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货