[[Lepe]]

Esta función está sacada de las NKLIB, Tiene muchas otras para el tratamiento de strings, memos, nombres de archivos, etc...

Código Delphi [-]
// Habrá que buscar un algoritmo más eficiente para esto, de momento...
function RightPos(const cSubstr, s: String): Integer;
var
  i: Integer;
begin
  for i := Length(s) - Length(cSubStr) + 1 downto 1 do
  begin
    if Copy(s, i, Length(cSubstr)) = cSubStr then
    begin
      Result := i;
      exit
    end (*if*);
  end (*for*);
  Result := 0;
end (*RightPos*);

Saludos