Question

How to find the position of the first occurrence of a substring in a string with Pascal

Answer 1

program FindSubstring;

var
    str, substring: string;
    position: Integer;

begin
    str := 'I bought running shoes, but they started running alone, now we are both happy';
    substring := 'running';

    // Find the position of the first occurrence of a substring
    position := Pos(substring, str);

    if position <> 0 then
        WriteLn('The first occurrence of "', substring, '" is at position: ', position - 1)
    else
        WriteLn('Substring not found!');
end.



(*
run:

The first occurrence of "running" is at position: 9

*)

 

Learn SQL from A to Z at LearnSQL.com