und wie sieht es aus wenn ich zb: ein ganzes Verzeichnis mit DirectoryListBox in die ListBox übernehme und dieses Verzeichnis 2 mal übernommen werden sollte (doppelt)?
Delphi-Quellcode:
procedure TfVerzeichnis.btnOKClick(Sender: TObject);
var
I: Integer;
slTmp: TStringList;
begin
slTmp := TStringList.Create;
slTmp.Clear;
btnOK.Font.Color := clRed;
btnOK.Caption := 'bitte warten...';
FindAllFiles(slTmp,DirectoryListBox1.Directory+'\','*.mp3', true, true, false);
btnOK.Font.Color := clBlack;
btnOK.Caption := 'OK';
for I := 0 to slTmp.Count - 1 do
begin
Form1.lbAusgabe.Items.Add(slTmp.Strings[i]);
end;
slTmp.Free;
fVerzeichnis.Close;
end;
Gruß
Holger