IsEmpty 初期値かどうか

IsEmpty関数は指定された変数が初期値かどうかを調べます。
Delphiでは VarIsEmpty関数を使用します。

■ VarIsEmptyの使用例 
procedure TForm1.Button1Click(Sender: TObject);  
  procedure CheckVariant(vValue : variant);
  begin
    if  VarIsEmpty(vValue)  then begin
      ShowMessage('Empty');
    end;
  end;
var
  vValue  :  variant;
begin
  CheckVariant(vValue); //Emptyである
  vValue  :=  0;
  CheckVariant(vValue); //Emptyではない
  vValue  :=  '';
  CheckVariant(vValue); //Emptyではない
  vValue  :=  Null;
  CheckVariant(vValue); //Emptyではない
  vValue  :=  Unassigned;
  CheckVariant(vValue); //Emptyである
end;