Compare String

Smart pascal source code


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

{ main.pas }

var
  one : String = 'one';
  two : String = 'two';

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";
      var two = "two";
      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");
   }
};