[Resolvido] Achar caractere ANTES da posição atual

[R_Kder 0]

Oi!

 

Preciso de uma ajuda no seguinte: Quero encontrar a posição de um caractere ANTES a posição que tenho. O POS me retorna a posição do caractere DEPOIS da minha atual posição. Alguem saberia como fazer isso?

 

Obrigado!

[bdexterholland 0]

function PosInvertido(const Frase: String; const Caractere : Char; const Inicio: Integer) : Integer;
var
 i : Integer;
begin
 Result := -1;
 if (Inicio > Length(Frase)) or (Inicio < 0) then
   Break;
 for I := Inicio DownTo 0 do
   if (Frase[i] = Caractere) Then
     begin
       Result := I;
       Break;
     end;
end;

[R_Kder 0]

Funcionou, obrigado pela ajuda.

[bdexterholland 0]

Foi um prazer.