各位高手，谁对nil有研究,请教isnull()的用法

Question

procedure  TForm2.OKClick(Sender:  TObject);  
 var  
 result:  integer;  
begin  
     form2.Table1.Open;  
     result:=form2.Table1.lookup('name;pasword',vararrayof([edit1.text,edit2.text]),'degree')  ;  
       begin  
       if  result<>0  then  
         begin  
           showmessagefmt('%d',[result]);  
           form2.Hide;  
           form1.show;  end  
           else IF ISNULL(result) then
           showmessage('出错了。');  
 end    ;  
 end;  
编译时保错Undeclared identifier（未说明的标识符
）是我把这个函数用错了吗，

Answer 1

Delphi中没有ISNULL这个函数，它只是某些对象的属性，Table1.lookup如果没有匹配的记录会返回一个false值，你通过这个值判断就可以了。

Answer 2

Delphi种判断一个变量是否为Null的函数是：
function VarIsNull(const V: Variant): Boolean;

Answer 3

Table1.lookup如果没有匹配的记录会返回一个nil  不是false

Answer 4

万分感谢小海以及个位的帮助，问题已经解决，（万分感谢小海的帮助）现公布修改结果
procedure TForm2.OKClick(Sender: TObject);
 var
 result: variant;
begin
   form2.Table1.Open;
   result:=form2.Table1.lookup('name;pasword',vararrayof([edit1.text,edit2.text]),'degree') ;
    begin
    if varisnull(result) then
    showmessage('出错了。')
    else
     begin
      showmessagefmt('%s',[result]);
      form2.Hide;
      form1.show; end ;
 end  ;
给小海加分建议小海老板给小海张工资