Question

How to compare two strings in Pascal

Answer 1

program CompareStrings;
uses
  SysUtils;

var
  str1, str2: string;
  result: Integer;

begin
  str1 := 'Pascal';
  str2 := 'Python';

  result := CompareStr(str1, str2);

  if result < 0 then
    WriteLn('str1 is less than str2')
  else if result > 0 then
    WriteLn('str1 is greater than str2')
  else
    WriteLn('str1 is equal to str2');
end.



(*
run:

str1 is less than str2

*)

 

70+ SQL courses for beginners and professionals