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!

[Balu der Bär]

Do it yourself. :P

Einfach nach dem letzten Punkt im Dateinamen suchen und ab diesem alle Zeichen abschneiden. Pos & Delete sind deine Freunde.

[Lannes]

Hallo,
oder:

Delphi-Quellcode:

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

[leddl]

Delphi-Quellcode:

ChangeFileExt(FileName,'');

:zwinker:

Wie umständlich, Bärchen :mrgreen:

[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. ;)

[leddl]

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

[Balu der Bär]

Stimmt, soviel hatte ich Windows nicht zugetraut. :oops: :mrgreen:

[leddl]

Tja, auch Meister Petz lernt nie aus :mrgreen:

[Mackhack]

Hi ihr,

dank euch.

@Balu: Die 2 Funktionen kenn ich :mrgreen:

[jbg]

Zitat:

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) )