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

nPos Function in Pascal

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.