letzten 4 stellen vom string abschneiden

Marcasso · Beiträge: 17

hallo, ich möchte, dass beim abspielen eines mp3 das albumcover geöffnet wird,
dies hab ich so geamcht, dass es vorher unter dem liednamen gespecihert wird,
das aufrufen sollte dann so erfolgen :

markieren

Delphi-Quelltext

1:	form1.bild.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + '/bild/' + extractfilename(form2.ListA.Items.Strings[form2.listA.itemindex]));

jedoch muss ich an dem string noch die letzten 4 stellen abschneiden, da das die endung .mp3 vom liednamen ist...
wie kann ich das realisieren?lg marc

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

Schau Dir mal ChangeFileExt, ExtractFileExt das sollte Dir helfen.

Edit: Bin mal nicht so damit sparst Du Dir auch gleichzeitig das ersetzen der Endung.

markieren

Delphi-Quelltext

1:	Form1.Bild.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + '\bild\' + ExtractfileName(ChangeFileExt(Form2.ListA.Items.Strings[Form2.ListA.ItemIndex],'.bmp'));

_________________
Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)

Roadrunner116 · Verfasst: Fr 02.02.07 20:23

hi, hab dazu auch eine frage!
wie mache ich das, wenn ich ien Datum habe und die Jahreszahl abschneiden will?
da gibt es doch was, wo man den string auf lediglich 5 zeichen begrenzt oder?

Gruß Roadrunenr116

Raffo · Beiträge: 300

Meinst Du sowas:

markieren

Delphi-Quelltext

1:
2:

s:=strtodate(date);
s:=copy(s,1,5);

Roadrunner116 · Verfasst: Fr 02.02.07 20:31

Danke!!!

Lannes · Verfasst: Fr 02.02.07 20:36

Hallo,

oder:

markieren

Delphi-Quelltext

1:
2:
3:

showmessage(FormatDateTime('dd.mm',StrToDate('02.02.2007')));
//oder das
showmessage(FormatDateTime('dd.mm',TDate(Now)));

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme