Delphi null与Empty的区别

Delphi null与Empty的区别

procedure TForm1.Button1Click(Sender: TObject);
var  i:OleVariant;
begin
    i:=null;// 注释掉这句 再运行
    if VarIsNull(i) then showmessage('null');
    if VarIsEmpty(i) then showmessage('empty');
end;