Web Design that taps into the haromny and vision of your dreams.

nPos Function in Pascal

Find positions of string character inside another string

By on in Coding

76 words, estimated reading time 1 minutes.

Return the nth position of string character within a string.

Return the nth position of search character within a string.

Usage:

pos := nPos('/', 'c:/mypath/to/somefile/', 3);
 
pos = 13
 
function nPos(C: char; S: string; N: byte): byte;
var
  I, P, K: Integer;
begin
  Result := 0;
  K := 0;
  for I := 1 to N do
  begin
    P := Pos(C, S);
    Inc(K, P);
    if (I = N) and (P > 0) then
    begin
      Result := K;
      Exit;
    end;
    if P > 0 then
      Delete(S, 1, P)
    else
      Exit;
  end;
end;

Last updated on: Saturday 24th June 2017

 

Comments

Have a question or suggestion? Please leave a comment to start the discussion.

 

Leave a Reply

Please keep in mind that all comments are moderated according to our privacy policy, and all links are nofollow. Do NOT use keywords in the name field. Let's have a personal and meaningful conversation.

Your email address will not be published.