Question

How to perform a case-insensitive search in Pascal

Answer 1

program CaseInsensitiveSearch;

uses
  SysUtils, StrUtils;

function ContainsIgnoreCase(const str, toFind: string): Boolean;
begin
  ContainsIgnoreCase := ContainsText(LowerCase(str), LowerCase(toFind)); // StrUtils
end;

var
  str, toFind: string;
  contains: Boolean;
begin
  str := 'The FOX Profession is Pascal Programmer';
  toFind := 'fox';

  contains := ContainsIgnoreCase(str, toFind);

  WriteLn(BoolToStr(contains, True)); // SysUtils
end.


 
 
(*
run:
 
True
 
*)

 

70+ SQL courses for beginners and professionals