Encontrar ultima ocurrencia de subcadena

[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