ExtractFileExt
Achtung, enthält auch den Punkt! Wenn du den entfernen willst, benutze folgende Funktion:
Delphi-Quellcode:
function ExtractFileExtension(FilePath: String): String;
begin
Result:=ExtractFileExt(FilePath);
Result:=Copy(Result, 1, length(Result));
end;
Übrigens, SysUtils ist vollgestopft mit solchen Extract-Funktionen. Da kannst du Dateinamen und -pfade zerpflücken, wie du lustig bist. In der Hilfe einfach mal die SysUtils durchschauen, da findest du, was du brauchst.