Ordnerinhalt mit Pfadangabe zu ListBox

[jim_raynor]

Zitat von kingflo:

Code:

for  i := 0 to  listbox1.items.count - 1 do
    begin
      stl.Add(listbox1.items.strings[listbox1.itemindex]);
      listbox1.ItemIndex:=listbox1.ItemIndex+1;
    end;
    listbox1.Items.CommaText:=stl.commatext; 
  finally 
    stl.Free;
  end;
end;

Mach doch einfach: stl.Add(DirectoryDialog.Directory+'\'+listbox1.ite ms.strings[listbox1.itemindex]);
Das mit FindFirst musst nur machen, wenn du die Dateien selber suchen möchtest.


Und diese Zeile listbox1.ItemIndex:=listbox1.ItemIndex+1; ist meiner Meinung nach auch Überflüssig. Würde statt dessen lieber ne normale Variable nehmen. Dürfte wesentlich schneller sein.

Und auch das listbox1.Items.CommaText:=stl.commatext; geht einfacher mit Listbox1.Items:=stl; oder wenn das doch nicht klappt dann listbox1.Items.Assign(stl);