Encontrar ultima ocurrencia de subcadena

[roman]

A mi se me ocurre buscar el reverso de la subcadena en el reverso de la cadena y luego tomar el complemento de la posición encontrada respecto a la longitud de la cadena tomando en cuenta la longitud de la subcadena

O sea:

Código Delphi [-]
uses StrUtils;

function LastPos(Substr, S: String): Integer;
var
  I: Integer;

begin
  I := Pos(ReverseString(Substr), ReverseString(S));

  if I > 0 then
    Result := Length(S) - Length(Substr) + 2 - I
  else
    Result := 0;
end;

// Saludos

[hmoner]

Muchisimas gracias por la ayuda
Ambas me parecen soluciones perfectas.

Saludos!

[tcp_ip_es]

Preguntita al gran Roman: ¿Desde qué versión de delphi se incluye la libreria StrUtils?
Yo es que sigo con D5 y creo que esa librería no la tengo .....

[roman]

Empezado por tcp_ip_es

¿Desde qué versión de delphi se incluye la libreria StrUtils?

Creo que desde la versión 6. Pero con todo gusto te regalo esta función

Código Delphi [-]
function ReverseString(S: String): String;
var
  I: Integer;

begin
  Result := '';

  for I := 1 to Length(S) do
    Result := S[i] + Result;
end;

// Saludos

[tcp_ip_es]

je je je muchas gracias, me ire componiendo mi propio tcp_StrUtils