如何去除 Warning
我现在用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}
----------------------------------