Funktion um Dateisuffix zu loeschen

**Mackhack**

Hi DPler,

gibts von Delphi ne Funktion die die mir den Dateinamen ausgibt ohne den Dateisuffix? Steh auf dem Schlauch oder gibts tatsaechlich nicht!

Danke!

Do it yourself.

Einfach nach dem letzten Punkt im Dateinamen suchen und ab diesem alle Zeichen abschneiden. Delphi-Referenz durchsuchen

Pos &

Delete sind deine Freunde.

**Lannes**

Hallo,
oder:
ChangeFileExt('C:\temp\foo.txt', '');

**leddl**

ChangeFileExt(FileName,'');

Wie umständlich, Bärchen

@Lannes & leddl: Da hast du aber imho immer noch den Punkt mit drin, und den müsste man auch noch rauslöschen.

**leddl**

Soweit ich mich erinnere, ist Windows schlau genug, einen Punkt ohne Endung zu entfernen

Stimmt, soviel hatte ich Windows nicht zugetraut.

**leddl**

Tja, auch Meister Petz lernt nie aus

**Mackhack**

Hi ihr,

dank euch.

@Balu: Die 2 Funktionen kenn ich

**jbg**

Zitat von Balu der Bär:

@Lannes & leddl: Da hast du aber imho immer noch den Punkt mit drin, und den müsste man auch noch rauslöschen.

Echt?

Aus der Delphi-Hilfe:

Zitat:

Extension legt die neue Erweiterung einschließlich des vorangestellten Punktes fest.

Zudem erkennt man im Quellcode zu ChangeFileExt, dass dort kein Punkt eingeschoben wird, wenn Extension='', aber der vorhandene Punkt entfernt wird (=> Copy(Filename, 1, I - 1) )

Funktion um Dateisuffix zu loeschen

Funktion um Dateisuffix zu loeschen

Re: Funktion um Dateisuffix zu loeschen

Re: Funktion um Dateisuffix zu loeschen

Re: Funktion um Dateisuffix zu loeschen

Re: Funktion um Dateisuffix zu loeschen

Re: Funktion um Dateisuffix zu loeschen

Re: Funktion um Dateisuffix zu loeschen

Re: Funktion um Dateisuffix zu loeschen

Re: Funktion um Dateisuffix zu loeschen

Re: Funktion um Dateisuffix zu loeschen

Forumregeln

Mackhack Registriert seit: 29. Nov 2003 Ort: San Diego, CA/USA 1.446 Beiträge Delphi 2006 Architect	#1 Funktion um Dateisuffix zu loeschen 19. Nov 2006, 11:09 Hi DPler, gibts von Delphi ne Funktion die die mir den Dateinamen ausgibt ohne den Dateisuffix? Steh auf dem Schlauch oder gibts tatsaechlich nicht! Danke! Um etwas Neues zu schaffen muss man seine Ohren vor den Nein-sagern verschliessen um seinen Geist öffnen zu können. (George Lukas)
	Zitat

Balu der Bär (Gast) n/a Beiträge	#2 Re: Funktion um Dateisuffix zu loeschen 19. Nov 2006, 11:12 Do it yourself. Einfach nach dem letzten Punkt im Dateinamen suchen und ab diesem alle Zeichen abschneiden. Pos & Delete sind deine Freunde.
	Zitat

Lannes Registriert seit: 30. Jan 2005 Ort: Münster 745 Beiträge Delphi 3 Professional	#3 Re: Funktion um Dateisuffix zu loeschen 19. Nov 2006, 11:13 Hallo, oder: ChangeFileExt('C:\temp\foo.txt', ''); MfG Lannes (Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
	Zitat

leddl Registriert seit: 13. Okt 2003 Ort: Künzelsau 1.613 Beiträge Delphi 2006 Professional	#4 Re: Funktion um Dateisuffix zu loeschen 19. Nov 2006, 11:15 ChangeFileExt(FileName,''); Wie umständlich, Bärchen Axel Sefranek A programmer started to cuss, cause getting to sleep was a fuss. As he lay there in bed, looping round in his head was: while(!asleep()) ++sheep;
	Zitat

Balu der Bär (Gast) n/a Beiträge	#5 Re: Funktion um Dateisuffix zu loeschen 19. Nov 2006, 11:16 @Lannes & leddl: Da hast du aber imho immer noch den Punkt mit drin, und den müsste man auch noch rauslöschen.
	Zitat

leddl Registriert seit: 13. Okt 2003 Ort: Künzelsau 1.613 Beiträge Delphi 2006 Professional	#6 Re: Funktion um Dateisuffix zu loeschen 19. Nov 2006, 11:18 Soweit ich mich erinnere, ist Windows schlau genug, einen Punkt ohne Endung zu entfernen Axel Sefranek A programmer started to cuss, cause getting to sleep was a fuss. As he lay there in bed, looping round in his head was: while(!asleep()) ++sheep;
	Zitat

Balu der Bär (Gast) n/a Beiträge	#7 Re: Funktion um Dateisuffix zu loeschen 19. Nov 2006, 11:20 Stimmt, soviel hatte ich Windows nicht zugetraut.
	Zitat

leddl Registriert seit: 13. Okt 2003 Ort: Künzelsau 1.613 Beiträge Delphi 2006 Professional	#8 Re: Funktion um Dateisuffix zu loeschen 19. Nov 2006, 11:21 Tja, auch Meister Petz lernt nie aus Axel Sefranek A programmer started to cuss, cause getting to sleep was a fuss. As he lay there in bed, looping round in his head was: while(!asleep()) ++sheep;
	Zitat

Mackhack Registriert seit: 29. Nov 2003 Ort: San Diego, CA/USA 1.446 Beiträge Delphi 2006 Architect	#9 Re: Funktion um Dateisuffix zu loeschen 19. Nov 2006, 11:22 Hi ihr, dank euch. @Balu: Die 2 Funktionen kenn ich Um etwas Neues zu schaffen muss man seine Ohren vor den Nein-sagern verschliessen um seinen Geist öffnen zu können. (George Lukas)
	Zitat