Question

How to check if a character exists in a string with Pascal

Answer 1

program CheckCharExists;

{$mode objfpc}  // Enable Free Pascal Object Mode

var
  s: string;
  posK, posS: SizeInt;
  existsT: Boolean;

begin
  // Initialize the string
  s := 'freepascal';

  // Pos() returns the index of the character, or 0 if not found
  posK := Pos('k', s);   // 'k' does not exist
  posS := Pos('s', s);   // 's' exists
  existsT := Pos('t', s) > 0;  // boolean check

  // Print raw results
  WriteLn(posK);
  WriteLn(posS);
  WriteLn(existsT);

  // Conditional existence check
  if posK > 0 then
    WriteLn('exists')
  else
    WriteLn('not exists');
end.



(*
run:

0
7
FALSE
not exists

*)

 

70+ SQL courses for beginners and professionals