Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Dateiname (ohne Endung) als Caption setzen (https://www.delphipraxis.net/4892-dateiname-ohne-endung-als-caption-setzen.html)

dopeline 15. Mai 2003 19:45


Dateiname (ohne Endung) als Caption setzen
 
Hallo Lautz! :hello:

wenn ich eine datei öffne, soll der name der datei in meinem programm als caption stehen. das problem dabei, die dateieindung (.txt z.b.) soll aber nicht mit angezeigt werden. hab schon einiges progiert, bekomme aber die endung nicht weg. (die endungen, die das programm öffnen kann sind immer .pcm-dateien. vielleicht könnte man einfach den vollen dateinamen nehmen und dann die endung wegschneiden...) aber wie?

Grüße, dopeline :wink:

Sebastian Nintemann 15. Mai 2003 20:22

Hi dopeline!

Wenn du genau weißt, wieviel zeichen die Endung hat könntest du mit copy die Endung wegschneiden, du könntest aber auch die Funktion ChangeFileExt nehmen. Man übergibt als ersten Parameter den Dateinamen mit Endung und als zweiten die neue Endung. Wenn du also als zweiten Parameter '' einsetzt erhälst du den Namen ohne Endung.

Beispiel:
Delphi-Quellcode:
ChangeFileExt('ttt.txt',''); //ergibt 'ttt'
Gruß, Sebastian

dopeline 16. Mai 2003 14:18

wie bekomme ich nur den dateinamen raus und nicht den ganzen pfad?
Delphi-Quellcode:
FormHaupt.Caption:= 'Personal Contact Manager -  '+ChangeFileExt(opendialog1.FileName,'');
(da zeigt er den ganzen pfad)

Gruß, dopeline

CalganX 16. Mai 2003 14:30

Code:
FormHaupt.Caption:= 'Personal Contact Manager -  '+ChangeFileExt([color=#ff0000]ExtractFileName[/color](opendialog1.FileName),'');
Chris

dopeline 16. Mai 2003 14:38

Vielen Dank! das läuft ja wie am schnürchen! :hello: :hello: :hello:

Grüße, dopeline :dancer:


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:20 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz