Dateiendung ohne Punkt

[lbccaleb]

OkOk^^

Er kann auch einfach die aus der SysUtils Unit umbauen:

Delphi-Quellcode:

uses
  SysUtils;
function ExtractFileExtDotless(const FileName: string): string;
var
  I: Integer;
begin
  I := LastDelimiter('.' + PathDelim + DriveDelim, FileName);
  if (I > 0) and (FileName[I] = '.') then
    Result := Copy(FileName, I+1, MaxInt) else
    Result := '';
end;