delphi 如何关闭 Unsafe typecast of 和 Unsafe type 的waring

 

有时在Delphi使用指针类型的数据,总是提示如下:

[Warning] FGroupFeedBack.pas(796): Unsafe typecast of 'Pointer' to 'TObject'

[Warning] FGroupFeedBack.pas(696): Unsafe type 'PChar'

比较烦,虽说不是bug,但是看着不爽。做程序最好做到没有waring和hints.

说说怎么关闭这个waring, 其他的waring需要找出代码的不完善行,后改善,但这种waring只可以用编译命令来关闭了,  在单元的

{$R *.DFM} 后面添加  如下代码就可以了。

{$WARN  UNSAFE_CAST OFF} //关闭 UNSAFE_CAST的waring

{$WARN  UNSAFE_TYPE OFF} //关闭 UNSAFE_TYPE的waring

 

如果还需要,过滤其他的类型,请参照如上的方法,和 本人的博客的一篇文章

Delphi Waring 的信息  来进行编写命令。

例如 :

想过滤 Unsafe typecast of 'Pointer' to 'TObject'

在“Delphi Waring 的信息”文章中找到 Unsafe typecast of 对应的 UNSAFE_CAST 

然后 写成这种 {$WARN  UNSAFE_CAST OFF}  ,就可以了,  赶紧试试效果吧。

 

你可能感兴趣的:(Delphi)