我现在用Delphi7.一个非常讨厌的问题老是出现
[Warning] fra_MagWeekPlan.pas(230): Unsafe type 'Data: Pointer'
不安全指针的情况。
随便新建个工程, 放个Button和TreeView 在配上下面的代码就警告。用编译命令,如果这种情况多就太麻烦。有什么开关可以取消这个“不安全指针” 警告?
//===================================================
//代码
//----------------------------------------------------
//{$WARNINGS OFF}
procedure TForm1.Button1Click(Sender: TObject);
var
I:Integer;
begin
with TreeView1.Items do
for I := 0 to Count -1 do
begin
if Assigned(Item[I].Data) then
Dispose(Item[I].Data);
end;
end;
//{$WARNINGS ON}
----------------------------------
[Warning] fra_MagWeekPlan.pas(230): Unsafe type 'Data: Pointer'
不安全指针的情况。
随便新建个工程, 放个Button和TreeView 在配上下面的代码就警告。用编译命令,如果这种情况多就太麻烦。有什么开关可以取消这个“不安全指针” 警告?
//===================================================
//代码
//----------------------------------------------------
//{$WARNINGS OFF}
procedure TForm1.Button1Click(Sender: TObject);
var
I:Integer;
begin
with TreeView1.Items do
for I := 0 to Count -1 do
begin
if Assigned(Item[I].Data) then
Dispose(Item[I].Data);
end;
end;
//{$WARNINGS ON}
----------------------------------
解决方案 »
- 怎样自动加1?
- 怎么取得当前显示的颜色深度与刷新率?
- 请帮帮忙,如何将下一段fortran程序改成Delphi?
- 求李维《Delphi 5.X分布式多层应用系统篇 》电子书,不胜感激~~~
- 向高手请教XP风格菜单设计的问题
- 怎么让我的程序成为屏幕中的一个线程?
- 关于reportbuilder 中报表标题的动态设置问题.再线等待。答完结贴
- 我是Delphi初学者,请教各位这条语法为什老报错!!!
- 如何汉化reportbuilder6.03,高分相送,不够可加?
- 关于日期的问题,求助!
- 为什么我在quickrep上面只能加一个detailband和columnheaderband?
- 用TWebBrowser操作网页表单元素,关于Select的问题。
把show warning去掉
不过建议不要去掉
能Run得好就是了
這個標準的做法, 樓上的其它說法都不對!!
這樣并不會影響任何東西, 這個warning只是為了保證你的代碼有一天向.net移植才有用,但我估計用不到的
我最后还是决定,让这个Warning留这。
毕竟Delphi7是纯粹的win32应用,跟.Net不搭边,没必要凑这个热闹。