Question

How to case insensitive check if a string starts with a specified substring in Pascal

Answer 1

program StringStartsWithSubstringCaseInsensitive;

uses
  SysUtils;

function StartsWithCaseInsensitive(str, substr: string): Boolean;
begin
  str := LowerCase(str);
  substr := LowerCase(substr);
  
  StartsWithCaseInsensitive := false;
  
  if Pos(substr, str) = 1 then
    StartsWithCaseInsensitive := true;
end;

var
  str, substr: string;
  result: Boolean;
begin
  str := 'Pascal Programming Language';
  substr := 'PASCAL';
  
  result := StartsWithCaseInsensitive(str, substr);
  
  WriteLn(result);
end.



(*
run:

TRUE

*)

 

70+ SQL courses for beginners and professionals