Datein und Filter

[ibp]

ca so:

Delphi-Quellcode:

  endung:=dateiname; // mit extension
  delete(endung, 1, pos('.',endung));