Position des letzten Punkt in einem String

[Oxmyx]

Delphi-Quellcode:

function LastDotInString(const s: string): Integer;
var
  i: Integer;
begin
  for i := Length(s) downto 1 do begin
    if s[i] = '.' then begin
      Result := i;
      Exit;
    end;
  end;

  Result := -1;
end;