ExtractFileName bei ListBox?

[mlspider]

Genau darum ging es mir. Der Pfad sollte zwar bekannt sein, aber nicht aufgelistet werden. Ich meine wie sieht denn das aus: C:\Dokumente und Einstellungen\.......und dann irgend wann mal der Dateiname, der letzenendlich nicht mehr angezeigt werden kann, weil der Quatsch davor schon fast zwei Zeilen einnimmt.

[Edit:] Für allen den es interessiert, gibt's hier die Lösung:

Delphi-Quellcode:

procedure TForm1.DeinButtonClick(Sender: TObject);
var i: Integer;
begin
  OpenDialog1.Options := OpenDialog1.Options + [ofAllowMultiSelect];
  if Opendialog1.Execute then
  begin
    if ListBox1.Count <= -1 then
    begin 
      for i := 0 to OpenDialog1.Files.Count - 1 do
      ListBox1.Items.Add(ExtractFileName(OpenDialog1.Files[i]));
      ListBox1.ItemIndex := 0;
     //Der Rest......Eure Events (Autoplay, Replay, etc.)
 end;
end;

[Hawkeye219]

Zitat von mlspider:

if ListBox1.Count <= -1 then

Wie schaffst du es, aus einer ListBox mehr herauszunehmen, als sie enthält?

Gruß Hawkeye

[mlspider]

Sorry, sollte eigentlich den ItemIndex -1 haben. Darf so etwas passieren?

Ja, mit dieser Codezeile war ich zu übereifrig!!!