Question

How to perform case-insensitive two strings comparison in Pascal

Answer 1

program CaseInsensitiveTwoStringsComparison;

uses
    SysUtils;

function EqualsIgnoreCase(const str1, str2: string): Boolean;
begin
    EqualsIgnoreCase := AnsiUpperCase(str1) = AnsiUpperCase(str2);
end;

var
    str1, str2: string;
    equals: Boolean;
begin
    str1 := 'Profession: pascal Programmer';
    str2 := 'Profession: PASCAL PROGRAMMER';
    
    equals := EqualsIgnoreCase(str1, str2);

    if equals then
        Writeln('true')
    else
        Writeln('false');
end.

 
 
(*
run:
 
true
 
*)

 

70+ SQL courses for beginners and professionals

Answer 2

program CaseInsensitiveTwoStringsComparison;

uses
    SysUtils;

function EqualsIgnoreCase(const str1, str2: string): Boolean;
begin
    EqualsIgnoreCase := LowerCase(str1) = LowerCase(str2);
end;

var
    str1, str2: string;
    equals: Boolean;
begin
    str1 := 'Profession: pascal Programmer';
    str2 := 'Profession: PASCAL PROGRAMMER';
    
    equals := EqualsIgnoreCase(str1, str2);

    if equals then
        Writeln('true')
    else
        Writeln('false');
end.

 
 
(*
run:
 
true
 
*)

 

70+ SQL courses for beginners and professionals

Answer 3

program CaseInsensitiveTwoStringsComparison;

uses
    SysUtils;

function EqualsIgnoreCase(const str1, str2: string): Boolean;
begin
    EqualsIgnoreCase := CompareText(str1, str2) = 0;
end;

var
    str1, str2: string;
    equals: Boolean;
begin
    str1 := 'Profession: pascal Programmer';
    str2 := 'Profession: PASCAL PROGRAMMER';
    
    equals := EqualsIgnoreCase(str1, str2);

    if equals then
        Writeln('true')
    else
        Writeln('false');
end.

 
 
(*
run:
 
true
 
*)

 

70+ SQL courses for beginners and professionals