delphi5.0下做的东东到delphi7.0下提示出错？

Question

if ADOQuery1.FieldByName('company').value<>null then
提示null没有定义？应该怎么改？if application.MessageBox(PChar('提示'+＃13+'不正确！'),'提示',MB_YESNO+MB_DEFBUTTON2+MB_ICONQUESTION)=IDNO then
提示：unsafe type 'pchar' ？应该怎么改？

Answer 1

if ADOQuery1.FieldByName('company').value<>nil thenif application.MessageBox('提示'+＃13+'不正确！','提示',MB_YESNO+MB_DEFBUTTON2+MB_ICONQUESTION)=IDNO then

Answer 2

第一句应该没有错，我在7下也是这么用的，你可以查一下有什么单元没有引用！
第二句只是个提示，不改也没有关系，因为Delphi已经封装了Application.MessageBox了，所以没有必要再转换为PChar类型了！

Answer 3

null改为nil
  第二局是警告，可以不该