PInteger怎么用? 用之前是不是先New一下 以分配空间 不懂的说 谁能举个例子说明一下 谢谢了比如我用var pi : PInteger;begin ... function(param1, pi, ...) ... ... 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var a:pinteger; b:Integer;begin new(a); a^:=1; showmessage(inttostr(a^)); b:=34; a^:=b; ShowMessage(inttostr(a^)); Inc(a^); b:=a^; Showmessage(inttostr(b));end; 少了一句,最后应该Dispose(a); report machine 报表会的请进... 如何让子窗体最大化不融入母窗体,也不影响其它子窗体的状态?详见贴内图片。 如何检测计算机是否已安装MSSQl并得到其版本号和服务是否启动?急急 再散分,希望找到好工作! 为什么我不能在DBEDIT中对数据表插入数据?(键盘输入无效)有谁能帮帮我? 怎么上颜色,一个对高手简单的问题 如何实现带皮肤的窗口?? 我在北京,有丰富开发经验,想找一份兼职程序员的工作,请帮帮忙,up有分。 将一个C++代码翻译成delphi代码 如何解决显示图象问题?谢谢了 填充字符串!在线等待 在fastreport 中如何实现自动换行?很急!谢谢!
a:pinteger;
b:Integer;
begin
new(a);
a^:=1;
showmessage(inttostr(a^));
b:=34;
a^:=b;
ShowMessage(inttostr(a^));
Inc(a^);
b:=a^;
Showmessage(inttostr(b));
end;