PAS（32）：比较总是计算为false

问题：

学习Delphi7，构建窗体Form1，建立一个按钮，点击按钮，单击代码如下：

程序tform1.button1click（发件人：TObject）；

VaR

CreateFile：THandle；

开始

CreateFile：=创建文件（会：测试主。BMP）；

如果CreateFile = - 1

被（文件创建失败！）

其他的

被（main.bmp文件成功！）；



结束；



执行后出现两个警告。

{警告} unit1.pas（31）：比较总是false

{警告} unit1.pas（31）：比较有符号和无符号类型扩大了操作数



答案uff1a

检查完信息后，警报}消失并共享。

那就是CreateFile = - 1改为整数（CreateFile）= 1，然后执行代码。（完）