Frage zu ExtractFileName

hansg · Verfasst: So 06.05.07 11:21

Hallo zusammen,

über die Funktion

Delphi-Quelltext

1:	filename:=ExtractFileName(opendialog1.FileName);

kann man ja den aktuellen Dateinamen extrahieren, dieser enthält ja auch die Dateiendung.
Gibt es eine Möglichkeit ohne die Dateiendung ?

_________________
Gruß Hans

jakobwenzel · Verfasst: So 06.05.07 11:30

Mit ExtractFileExt kommste an die Erweiterung.
Mit Length an die Länge der Erweiterung.
Mit Copy kannste beliebige Teile vom String rauskopieren:

Delphi-Quelltext

1:	Copy(filename,1,length(filename)-length(Extractfileext(filename)))

Evtl geht auch ChangefileExt(Filename,'')

_________________
I thought what I'd do was, I'd pretend I was one of those deaf-mutes.

hansg · Verfasst: So 06.05.07 12:18

Hallo,

danke für den Tip.

Die Funktion ChangefileEx geht.

_________________
Gruß Hans