Question

How to match a string not containing a substring in Pascal

Answer 1

program StringNotContainingSubstring;

uses
  SysUtils;

function StringNotContainingSubstring(substring, text: string): Boolean;
begin
  if Pos(LowerCase(substring), LowerCase(text)) = 0 then
    StringNotContainingSubstring := True  // Substring not found
  else
    StringNotContainingSubstring := False; // Substring found
end;

var
  substring: string;
begin
  substring := 'notype';

  WriteLn(StringNotContainingSubstring(substring, ' notype')); 
  WriteLn(StringNotContainingSubstring(substring, 'notype ')); 
  WriteLn(StringNotContainingSubstring(substring, 'notypevar')); 
  WriteLn(StringNotContainingSubstring(substring, 'anotypevar')); 
  WriteLn(StringNotContainingSubstring(substring, 'anotype')); 
  WriteLn(StringNotContainingSubstring(substring, 'The only approval you need is your own')); 
  WriteLn(StringNotContainingSubstring(substring, 'follow your dreams')); 
  WriteLn(StringNotContainingSubstring(substring, 'Never regret anything that made you smile')); 
  WriteLn(StringNotContainingSubstring(substring, 'A programming language')); 
end.



(*
run:

FALSE
FALSE
FALSE
FALSE
FALSE
TRUE
TRUE
TRUE
TRUE

*)

 

70+ SQL courses for beginners and professionals