Dateiname ohne Endung

[shmia]

Delphi-Quellcode:

function ohne_erweiterung(const dateiname:string):string; 
begin 
   Result := ChangeFileExt(dateiname, '');
end;