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} ，就可以了， 赶紧试试效果吧。