Dateiname auslesen und anzeigen

[jaegerschnitzel]

Ich habe in meinem Programm folgenden Code:

Delphi-Quellcode:

Form1.Image.Picture.LoadFromFile('.\images\#201.jpg');

Jetzt will ich den Dateinamen ohne .jpg, also nur #201 in einem TEdit anzeigen lassen. Wie mache ich das am einfachsten?

[mirage228]

Hi,

ChangeFileExt und ExtractFileName sollten Dir weiterhelfen :)

mfG
mirage228

[jaegerschnitzel]

Danke erstmal.
Könntest du mir vielleicht bei meinem konkreten Fall helfen, wenn du Zeit hast?
Denn ich komm noch nicht so richtig klar damit.

[Christian Seehase]

Moin Jägerschnitzel,

was verstehst Du denn an den beiden Funktionen nicht?

[alcaeus]

Hi jaegerschnitzel,

also wenn du folgenden Code hast:

Delphi-Quellcode:

Form1.Image.Picture.LoadFromFile('.\images\#201.jpg');

dann kannst du dir den Dateinamen wie folgt ausgeben lassen:

Delphi-Quellcode:

ShowMessage(ChangeFileExt(ExtractFileName('.\images\#201.jpg'),'.jpg',''));

Erklärung: Zuerst wird mit ExtractFileName der Dateiname inkl. Erweiterung ausgelesen. Das Ergebnis wird der Funktion ChangeFileExt übergeben, welche als ersten Parameter den Dateinamen, und als zweiten Parameter die neue Erweiterung (inkl. Punkt) erwartet. Der Rückgabewert ist der neue Dateiname (die Datei wird nicht umbenannt).

Greetz
alcaeus

[himitsu]

Ich glaub so ist es besser:

Delphi-Quellcode:

ShowMessage(ChangeFileExt(ExtractFileName('.\images\#201.jpg'),''));

ChangeFileExt erwartet nur den Dateinamen und dei neuen Dateierweiterung.



Und so 'ne Ausrede, wie ich bin jung, neu und hab eh keine Ahnung zählt hier nicht ... das steht schließlich alles in der OH.

[jaegerschnitzel]

Danke für den Code.

Aber das eigentliche Problem, das ich hatte habt ihr leider nicht erkannt. Wahrscheinlich habe ich mich etwas komisch ausgedrückt.
Also nochmal:
-erstens soll das Ergebnis in einem TEdit angezeigt werden und nicht in einem Popup-Fenster
-und zweitens ist der Pfad "Form1.edit_Folge.Text := '#101';" nicht immer gleich, er ändert sich.
Darum sollte der Pfad zuerst als Variable deklariert werden und dann sollten die Befehle "ChangeFileExt" und "ExtractFileName" angewandt werden. Das ist aber mein Problem. Wie mache ich das mit einer Variablen?

[SirThornberry]

Einfach an die Stelle wo jetzt '.\images\#201.jpg' steht die eine varialbe hinschreiben. Und anstelle von showmessage das ergebnis einer anderen variablen zuweisen.

Ohne dir zu Nahe treten zu wollen: Die Lösung wurde bereits gepostet - programmieren besteht darin selbst zu denken und nicht eine 1 zu 1 abschreiblösung zu finden. Das ist ähnlich wie wenn jemand frag wie man ein "a" ausgibt. Wenn dann als Antwort "showmessage('a')" kommt sollte der Fragestellende eigentlich so schlau sein zu wissen das man mit "showmessage('b')" ein "b" ausgeben kann. Wenn man solche Dinge nicht weiß sollte man entweder die Grundlagen der Programmiersprache nochmal anschauen oder das Programmieren lassen.

[jaegerschnitzel]

Zitat:

Ohne dir zu Nahe treten zu wollen: Die Lösung wurde bereits gepostet - programmieren besteht darin selbst zu denken und nicht eine 1 zu 1 abschreiblösung zu finden. Das ist ähnlich wie wenn jemand frag wie man ein "a" ausgibt. Wenn dann als Antwort "showmessage('a')" kommt sollte der Fragestellende eigentlich so schlau sein zu wissen das man mit "showmessage('b')" ein "b" ausgeben kann. Wenn man solche Dinge nicht weiß sollte man entweder die Grundlagen der Programmiersprache nochmal anschauen oder das Programmieren lassen.

Du hast vollkommen Recht mit deiner Aussage!


Aber trotzdem noch ne Frage:
Kann ich in den Pfad eine Variable einbauen? Also zum Beispiel so:
'.\images\#Variable.jpg'

[mirage228]

Hiho,

Natürlich kannst Du das :)

Delphi-Quellcode:

'Hier steht was -> ' + Variable + ' <- und hier gehts weiter...'

oder du schaust Dir die Funktion Format - Aber damit würdest du wohl mit Kanonen auf Spatzen schießen :)

mfG
mirage228