Entwickler-Ecke
Dateizugriff - Pfad ---> Name
Apollo - Di 17.06.08 18:52
Titel: Pfad ---> Name
Hallo Delphianer,
ich progge immer noch an meinem kleinem Mediaplayer.
Die akuell geladene Datei wird in einem Panel dargestellt.
Delphi-Quelltext
1:
| Opendialog1.filename:= Panel1.caption; |
Im Panel steht: C:\Musik\Lied.mp3
Wie schaff ich das dann dort steht 'Lied' oder 'Lied.mp3'.
Ich stell mir das so vor
Delphi-Quelltext
1:
2:
3:
4:
5:
| var z,y:string;
begin
Opendialog1.filename:= Z;
Y:= Z (irgend wie bearbeitet)
Panel1.caption:= (Y); |
Nur mal ganz grob damit ihr wisst was ich meine.
Natürlich auch bei anderen Pfadnamen z.B. 'C:\Lieder\Song.mp3'.
Danke im voraus
Moderiert von 
Narses: Topic aus Sonstiges (Delphi) verschoben am Di 17.06.2008 um 19:14
Yogu - Di 17.06.08 18:56
Hallo,
Die Funktion
ExtractFileName sollte dir helfen. Wenn du nur den Dateinamen ohne Endung haben willst, kannst du auch folgenden Term verwenden:
Delphi-Quelltext
1:
2:
| DateinameOhneEndung := Copy(ExtractFileName(FileName), 1,
Length(ExtractFileName(FileName))-Length(ExtractFileExt(FileName))); |
Grüße,
Yogu
alzaimar - Di 17.06.08 19:09
Nicht vielleicht Copy (...,1,...)?
mkinzler - Di 17.06.08 19:11
Delphi-Quelltext
1:
| DateinameOhneEndung := ChangeFileExt( FileName, '' ); |
Blackheart666 - Di 17.06.08 19:13
| Yogu hat folgendes geschrieben: |
Hallo,
Die Funktion ExtractFileName sollte dir helfen. Wenn du nur den Dateinamen ohne Endung haben willst, kannst du auch folgenden Term verwenden:
Delphi-Quelltext 1:
2:
| DateinameOhneEndung := Copy(ExtractFileName(FileName), 0,
Length(ExtractFileName(FileName))-Length(ExtractFileExt(FileName))); |
Grüße,
Yogu |
Nicht vieleicht ChangeFileExt. :wink:
Yogu - Di 17.06.08 19:36
| alzaimar hat folgendes geschrieben: |
| Nicht vielleicht Copy (...,1,...)? |
Als ich den Code geschrieben habe, wusste ich noch nichts von der "Anomalie der Strings" ;)
| mkinzler hat folgendes geschrieben: |
Delphi-Quelltext 1:
| DateinameOhneEndung := ChangeFileExt( FileName, '' ); | |
Ok, ok, das kannte ich auch noch nicht :D
Apollo: Nimm
ChangeFileExt ;)
Apollo - Di 17.06.08 19:55
Delphi-Quelltext
1:
2:
|
DateinameOhneEndung := ChangeFileExt( FileName, '' ); |
Dann steht bei mir nur: 'C:\Lieder\Song'.
Aber da soll nur 'Song' stehen :? ,
also fehlt da doch noch was, oder?
mkinzler - Di 17.06.08 19:59
Delphi-Quelltext
1:
| DateinameOhneEndung := ChangeFileExt( ExtractFileName(FileName, '' )); |
Apollo - Di 17.06.08 20:25
Vielen Danke für eure Hilfe,
es funktionirt perfekt.
Der Code heist aber
Delphi-Quelltext
1:
| DateinameOhneEndung := ChangeFileExt(ExtractFileName(Filename), ''); |
Trotzdem vielen Dank :zustimm:
Blackheart666 - Di 17.06.08 21:09
| Apollo hat folgendes geschrieben: |
Vielen Danke für eure Hilfe,
es funktionirt perfekt.
Der Code heist aber
Delphi-Quelltext 1:
| DateinameOhneEndung := ChangeFileExt(ExtractFileName(Filename), ''); |
Trotzdem vielen Dank :zustimm: |
Das höhrt sich ja schon nach Rüffel an, nächstes mal wird natürlich genau drauf geachtet das auch alles hundert prozentig stimmt versprochen. :wink:
Apollo - Mi 18.06.08 20:22
Sorry, sollte kein Rüffel sein. :angel:
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!