Position des letzten Punkt in einem String

[Neuni]

Hi,
hab schon gesucht, aber nix gefunden...hier das Problem:

Ich habe einen String der immer unterschiedlich viele Punkte enthält...mal 3 mal 1...oder auch 5 (weiß man nich).
Jetzt möchte ich die Position des letzten Punkts in diesem String herausfinden. Womit kann ich das machen?

[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;

[jfheins]

Vielleicht könntest du ExtractFileExt mißbrauchen ...

[Neuni]

Danke Oxmyx...geht wunderbar!

[Christian Seehase]

Moin Neuni,

oder Du verwendest die Funktion LastDelimiter.