Hi @ all

ich bastel zur Zeit an einem Mediaplayer für ein Schulprojekt von mir rum (Bin Delphi-Anfänger ). Der läuft auch weitestgehend super, habe nur wenige Probleme. Ich habe aber ein Problem mit der TListBox:

In dieser ListBox sind die Pfade zu den Dateien angegeben. Ich habe also eine ListBox mit folgendem Inhalt:
C:\Bla\Bla\Bla\Song1.mp3
C:\Bla\Bla\Bla\Song2.mp3
C:\Bla\Bla\Bla\Song3.mp3
C:\Bla\Bla\Bla\Song4.mp3
usw.

Nun will ich aber das man nur den Dateinahmen sieht, also das dann nurnoch Song1.mp3 zu sehen ist. Ich denke das lässt sich mithilfe der ExtractFileName Funktion machen, aber ich versuche es nun gut eine Stunde und schaffe es einfach nicht
Ich danke schonmal im Vorraus

Wie hast du es denn versucht?

Versucht habe ich es auf viele Weisen. funktioniert haben sie alle nicht, mir fehlt einfach das Grundwissen dazu. Meine größte Hoffnung war:

markieren

Code:

Procedure TForm1.CleanSaveList(d:string);
begin
   ListBox1.Items := ExtractFileName(d);
end;

Fehler war dann
[Fehler] Unit1.pas(307): E2010 Inkompatible Typen: 'TStrings' und 'string'

 ListBox1.Items.Add( ExtractFileName(d));

Warum werden eigentlci imme die Fehlermeldungen verschwiegen? Les dir die Fehlermeling mal durch und guck in der Hilfe, wei man einträge einer Listbox hinzufügt.

@ mkinzler:
Danke, aber das hilft mir leider nicht.

In meinem Fall muss die bereits bestehende ListBox "gereinigt" werden, deine Lösung funktioniert ja leider nur beim Hinzufügen von Items...

@ Luckie:
ich weiß wie man Beiträge hinzufügt. Das ist ja auch nicht das Problem. Ich will ja die bestehenden Einträge bearbeiten.

ListBox1.Items[<Index>] := ExtractFileName(d));

Sorry aber wie gesagt ich bin Anfänger

Was muss ich bei Index eintragen? Wenn ich es so compile wie es ist gibt er mir nur Fehlermeldungen.

Na den Index, des Eintrages, dn du ändern willst.

Nochmal, Du hast die kompletten Pfadangaben in der Listbox und willst sie nun auf den Dateinamen "zurechtstutzen"?

[edit] Ach, was soll' s:

markieren

Delphi-Quellcode:

var i: integer;
begin
  for i := 0 to Pred(ListBox1.Items.Count) do
    ListBox1.Items[i] := ExtractFileName(ListBox1.Items[i]);
end;

[/edit]