Du mußt von hinten den ersten Punkt suchen. Von vorne gibt das nichts, da im Dateinamen auch schon ein Punkt vorkommen kann.
Delphi-Quellcode:
function GetFileExt(
const sFilename:
String):
string;
var
rpos : integer;
begin
rpos := length(sFilename);
if(pos('
.',sFilename) > 0)
then
while(sFilename[rpos] <> '
.')
and (rpos > 0)
do
dec(rpos);
Result := copy(sFilename,rpos - 1, length(sFilename));
end;