Listboxeinträge ohne Dateiendung?

SQLException · Beiträge: 89 WinXP + D5 Enterprise Win2k + D6 Personal

hi,

gibts ne einfache möglichkeit, die einträge in meiner listbox ohne dateiendung anzeigen zu lassen? habe mal versucht alle einträge in einer TStrings bzw. TStringList zu speichern, um dann von jedem eintrag einzeln die letzen vier zeichen abzuschneiden, klappte aber irgendwie nicht...

jaenicke · Verfasst: Do 12.05.05 15:01

Schleife durch alle Entries und dann:

markieren

Delphi-Quelltext

1:	ListBox1.items[i] := ExtractFileName(ListBox1.Items[i]);

Mit ExtractFilePath gibts übrigens den Pfad...

Und wegen TStringList: Items ist vom Typ TStrings, deshalb muss man da kein weiteres TStrings-Objekt für nehmen...

SQLException · Beiträge: 89 WinXP + D5 Enterprise Win2k + D6 Personal

markieren

Delphi-Quelltext

1:	showmessage(ExtractFileName(listbox.Items[0]));

gibt bei mir aber den dateinamen + dateiendung. ?

Blackheart · Beiträge: 164 ME D3Prof.-D6Standard

ChangeFileExt

SQLException · Beiträge: 89 WinXP + D5 Enterprise Win2k + D6 Personal

danke.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

FindFiles(pfadmp3s,'*.mp3',False,listbox.Items);
item := 0;
itemsmax := listbox.Items.Count;
while item < itemsmax do
begin
  listbox.Items[item] := ChangeFileExt(listbox.Items[item],'');
  item := item + 1;
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme