| Autor |
Beitrag |
Apollo
Beiträge: 125
Windows 7
Delphi 3 Prof., Delphi 2005
|
Verfasst: Di 17.06.08 18:52
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_________________ Im Zweifelsfall immer das Richtige tun
|
|
Yogu
Beiträge: 2598
Erhaltene Danke: 156
Ubuntu 13.04, Win 7
C# (VS 2013)
|
Verfasst: 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
Zuletzt bearbeitet von Yogu am Di 17.06.08 19:35, insgesamt 1-mal bearbeitet
|
|
alzaimar
Beiträge: 2889
Erhaltene Danke: 13
W2000, XP
D6E, BDS2006A, DevExpress
|
Verfasst: Di 17.06.08 19:09
Nicht vielleicht Copy (...,1,...)?
_________________ Na denn, dann. Bis dann, denn.
|
|
mkinzler
Beiträge: 4106
Erhaltene Danke: 13
Delphi 2010 Pro; Delphi.Prism 2011 pro
|
Verfasst: Di 17.06.08 19:11
Delphi-Quelltext
1:
| DateinameOhneEndung := ChangeFileExt( FileName, '' ); | _________________ Markus Kinzler.
|
|
Blackheart666
Beiträge: 2195
XP
D3Prof, D6Pers.
|
Verfasst: Di 17.06.08 19:13
|
|
Yogu
Beiträge: 2598
Erhaltene Danke: 156
Ubuntu 13.04, Win 7
C# (VS 2013)
|
Verfasst: Di 17.06.08 19:36
|
|
Apollo 
Beiträge: 125
Windows 7
Delphi 3 Prof., Delphi 2005
|
Verfasst: 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
Beiträge: 4106
Erhaltene Danke: 13
Delphi 2010 Pro; Delphi.Prism 2011 pro
|
Verfasst: Di 17.06.08 19:59
Delphi-Quelltext
1:
| DateinameOhneEndung := ChangeFileExt( ExtractFileName(FileName, '' )); | _________________ Markus Kinzler.
|
|
Apollo
Beiträge: 125
Windows 7
Delphi 3 Prof., Delphi 2005
|
Verfasst: 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  _________________ Im Zweifelsfall immer das Richtige tun
|
|
Blackheart666
Beiträge: 2195
XP
D3Prof, D6Pers.
|
Verfasst: Di 17.06.08 21:09
_________________ Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)
|
|
Apollo
Beiträge: 125
Windows 7
Delphi 3 Prof., Delphi 2005
|
Verfasst: Mi 18.06.08 20:22
Sorry, sollte kein Rüffel sein. 
|
|
