Dateiendung ohne Punkt

[lbccaleb]

Delphi-Quellcode:

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