Compare Variant



Compare Variants
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 }