Buscar

Obtendo a posição da enésima ocorrência da string 'T' na string 'S'

Código

Function OccurPos (T, S : ShortString; N : Byte) : Byte;
Var
Op, P, I : Byte;
Begin
I := 0;
Op := 0;
P := Pos (T, S);
While P > 0 Do
Begin
Inc (Op);
if Op = N Then
Begin
OccurPos := I + P;
Exit;
End;
Inc(I, P + Length(T) - 1);
P := Pos (T, Copy (S, I + 1, 255));
End;
OccurPos := 0;
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Object pascal
Adicionada dia: 23/06/03
Por: Felipe Monteiro
Visualizada: 4100 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009