ExtractFileName bei ListBox?

[mlspider]

Delphi-Quellcode:

AudioPlayList.ListBox1.Items:=ExtractFileName(OpenDialog1.Files);

kann nicht funktionieren, da TString und String inkompatibel sind. Wie geht es richtig?

[freak4fun]

Versuchs mal mit

Delphi-Quellcode:

AudioPlayList.ListBox1.Items.Add(ExtractFileName(OpenDialog1.Files));

;)

MfG
freak

[mlspider]

Ebenfalls inkompatibel. (TString und String)

[DGL-luke]

if AudioPlayList.ListBox1.Items is TStrings then muss das gehen.

Sag doch mal genauer, was für Fehlermeldungen kommen.

EDIT: aaaahhhh....

du musst die dateinamen alle einzeln extrahieren.

[Hawkeye219]

Ohne Schleife wird es wohl nicht gehen:

Delphi-Quellcode:

procedure CopyFileNames (Source, Target: TStrings);
var
  i : Integer;
begin
  Target.Clear;
  for i := 0 to Source.Count - 1 do
    Target.Add(ExtractFileName(Source[i]));
end;
  
begin
  CopyFileNames (OpenDialog1.Files, AudioPlayList.ListBox1.Items);
end;

Gruß Hawkeye

[mlspider]

Geht es auch ohne for Schleife?

@Lukas, die übliche Fehlermeldung, wenn eine Inkompatibilität zwischen TString und String vorliegt.

[freak4fun]

Ungetestet:

Delphi-Quellcode:

var
  i: Integer;
begin
  for i := 0 to OpenDialog1.Files.Count - 1 do
    AudioPlayList.ListBox1.Items.Add(ExtractFileName(OpenDialog1.Files[i]));

Hatte das Files mit FileName verwechselt. :pale:

MfG
freak

[mlspider]

Also alles einzeln durchlaufen. Ja, so gehts. Danke.

[Jürgen Thomas]

Es geht auch direkt, da ListBox.Items und OpenDialog.Files beide vom Typ TStrings sind. Also kann auch direkt zugewiesen werden:

Delphi-Quellcode:

ListBox1.Items.Clear;
ListBox1.Items.AddStrings(OpenDialog1.Files);

Jürgen

[/edit]Nachtrag

Zitat:

Zitat von freak4fun

Aber da kann er nicht das ExtractFileName anwenden. freak

Zitat:

Zitat von mlspider

Genau darum ging es mir...

Sorry, nach den vielen Schleifen habe ich das nicht mehr gelesen. Aber vielleicht geht es doch noch schneller, weil ja nach einem OpenDialog alle Dateien aus dem gleichen Verzeichnis stammen. Damit kannst Du aus der ersten Datei das Verzeichnis bestimmen, damit die Länge des Pfades und mit einem Copy oder Delete die einzelnen Files-Einträge kürzen.

Delphi-Quellcode:

var i0, i1: Integer;
begin
  AudioPlayList.ListBox1.Items.Clear;
  //  ich setze voraus, dass mindestens 1 Datei ausgewählt wurde
  i0 := Length(ExtractFileDir(OpenDialog1.Files[0]));
  //  ich erinnere mich nicht mehr, ob '\' enthalten ist; ggf. i0+1 verwenden
  for i1 := 0 to OpenDialog1.Files.Count - 1 
  do AudioPlayList.ListBox1.Items.Add( Copy(OpenDialog1.Files[i1], i0+1, 255));
end;

Ich vermute sehr stark, das geht schneller, weil ExtractFileName bei jeder Datei das Ende des Pfades suchen muss, während dies nur einmal nötig ist.

Jürgen

PS. Sorry für mein Versehen!

[freak4fun]

Zitat:

Zitat von Jürgen Thomas

Es geht auch direkt, da ListBox.Items und OpenDialog.Files beide vom Typ TStrings sind. Also kann auch direkt zugewiesen werden:

Delphi-Quellcode:

ListBox1.Items.Clear;
ListBox1.Items.AddStrings(OpenDialog1.Files);

Jürgen

Aber da kann er nicht das ExtractFileName anwenden. ;)

MfG
freak

[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:

Zitat von mlspider

Delphi-Quellcode:

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!!! :-D