Compare Variant

Pas2JS pascal source code


procedure WriteLnOut(bool : Boolean);
begin
 case bool of
   False : WriteLn('False');
   True : WriteLn('True');
 end;
end;

{ main.pas }

var
  one : Variant = 1.5;
  two : Variant = 2.5;
Begin
WriteLnOut(one=two);
WriteLnOut(one>two);
WriteLnOut(one<>two);

WriteLn('');

WriteLnOut(one=one);
WriteLnOut(one>one);
WriteLnOut(one<>one);

WriteLn('');

WriteLnOut(two=one);
WriteLnOut(two>one);
WriteLnOut(two<>one);


{ <<< CONSOLE OUTPUTS >>>
  True
  True
  False
  False
  False
  True

  False
  True
  True
  True
  False
  False

  False
  False
  False
  True
  True
  True
}

      var one,
         one = 1.5;
      var two,
         two = 2.5;
      WriteLnOut(one=two);
      WriteLnOut(one>two);
      WriteLnOut(one!=two);
      WriteLn("");
      WriteLnOut(one=one);
      WriteLnOut(one>one);
      WriteLnOut(one!=one);
      WriteLn("");
      WriteLnOut(two=one);
      WriteLnOut(two>one);
      WriteLnOut(two!=one);

function WriteLnOut(bool) {
   if (bool) {
      WriteLn("True");
   } else {
      WriteLn("False");
   }
};