Dateiendung ohne Punkt

[Sir Rufo]

Zitat von lbccaleb:

Delphi-Quellcode:

function ExtractFileExtW(pszText: string): WideString;
var
  i: integer;
begin
  Result := pszText;
  for i := Length(pszText) downto 1 do
    if pszText[i] = '.' then begin;
        Result := Copy(pszText, i + 1, Length(pszText));
        break;
    end;
end;

Nein, diese Funktion arbeitet nicht zuverlässig

Code:

C:\Mein.Verzeichnis\DateiOhneEndung