ExtractFileExt

[Luckie]

Versuch das mal:

Delphi-Quellcode:

function MyExtractFileExt(const szFilename: string): string;
var
  rpos : integer;
begin
  rpos := length(szFilename);
  if(pos('.',szFilename) > 0) then
    while(szFilename[rpos] <> '.') and (rpos > 0) do
      dec(rpos);

  Result := copy(szFilename,1,rpos - 1);
end;