VarIsValidRef, VarIsEmpty, VarIsNull

Top 

Example code : Using VarIsValidRef, VarIsEmpty and VarIsNull

procedure TForm1.W3Button6Click(Sender: TObject);

var

  a: Variant = undefined;

  b: Variant = null;

  c: Variant = true;

  d: Variant = '';

  e: Variant = Unassigned;

  f: Variant;

begin

// returns true if the given variant is valid (does not contain the value Null nor undefined/Unassigned.

 WriteLn( VarIsValidRef(a) ); // false

 WriteLn( VarIsValidRef(b) ); // false

 WriteLn( VarIsValidRef(c) ); // true

 WriteLn( VarIsValidRef(d) ); // true

 WriteLn( VarIsValidRef(e) ); // false

 WriteLn( VarIsValidRef(f) ); // false

 

// returns true if the given variant contains the value Unassigned/undefined

 WriteLn( VarIsEmpty(a) ); // true

 WriteLn( VarIsEmpty(b) ); // false

 WriteLn( VarIsEmpty(c) ); // false

 WriteLn( VarIsEmpty(d) ); // false

 WriteLn( VarIsEmpty(e) ); // true

 WriteLn( VarIsEmpty(f) ); // true

 

// returns true if the given variant contains the value Null.

 WriteLn( VarIsNull(a) ); // false

 WriteLn( VarIsNull(b) ); // true

 WriteLn( VarIsNull(c) ); // false

 WriteLn( VarIsNull(d) ); // false

 WriteLn( VarIsNull(e) ); // false

 WriteLn( VarIsNull(f) ); // false

end;

 

JS output:

  function: W3Button6Click (Self, Sender$9) {

      var a$55 = undefined;

      var a$55 = undefined;

      var b$18 = undefined;

      var b$18 = null;

      var c = undefined;

      var c = true;

      var d = undefined;

      var d = "";

      var e$11 = undefined;

      var e$11 = undefined;

      var f = undefined;

      WriteLn(VarIsValidRef(a$55));

      WriteLn(VarIsValidRef(b$18));

      WriteLn(VarIsValidRef(c));

      WriteLn(VarIsValidRef(d));

      WriteLn(VarIsValidRef(e$11));

      WriteLn(VarIsValidRef(f));

      WriteLn(VarIsEmpty(a$55));

      WriteLn(VarIsEmpty(b$18));

      WriteLn(VarIsEmpty(c));

      WriteLn(VarIsEmpty(d));

      WriteLn(VarIsEmpty(e$11));

      WriteLn(VarIsEmpty(f));

      WriteLn((a$55===null));

      WriteLn((b$18===null));

      WriteLn((c===null));

      WriteLn((d===null));

      WriteLn((e$11===null));

      WriteLn((f===null));

   };

 

function VarIsValidRef(aRef) {

   var Result = false;

   

    Result = !((aRef == null) || (aRef == undefined));

  return Result

};

 

function VarIsEmpty(v) { return (typeof v === "undefined") };