Ordnername in listbox aufzählen

[EvilDragon]

möcht ja nicht dateien auflisten (weiß wie das schon geht) eher ordner bzw. die ordnernamen und dann halt:

klickt man in der listbox1 auf den ordner öffnet sich der inhalt bzw. dessen ordner (namen) in der listbox3
und wenn man nun in der listbox3 auf einen ordner klickt dann dessen inhalt (*.mp3) in der listbox2

aber trotzdem danke

[hboy]

gug ma ich hab sowas ähnliches gemacht

hier

[EvilDragon]

thx allerdingst ist es keine wirkliche antwort auf meine frage... ich würde gern ordner in einer Listbox auflisten... und wenn man dann auf einein eintrag klickt soll in einer zweiten listbox die unterordner aufgelistet werden und wenn man nun einen ordner (unterordner) klickt in einer dritten listbox dann der inhatl halt die mp3s...

sorry....

[hboy]

wo is dein problem ? is doch ganz einfach...

mit

Delphi-Quellcode:

for i:=0 to listbox1.items.count-1 do
  if listbox1.Checked[i] 
  then deine_subfolderproc(listbox1.items.strings[i]);

die unterordner auflisten. wichtig: arbeitsverzeichnis in ner extra variable fürhen und jeweils das neue Verzeichnis anhängen


PS: gug ma den anhang

[xineohp]

moin moin,

also irgendwie klingen deine Beschreibungen für mich so, als wolltest du eine Art Explorerfenster in dein Projekt integrieren?! Falls das der Fall ist würde ich dir raten einen Blick auf den Beispiel-Komponenten-Reiter von D7 zu werfen ... dort gibt es eine Komponente namens "ShellTreeView". Ich hab mich zwar noch nie damit beschäftigt aber wenn ich dich richtig verstanden habe scheint das genau deinen Bedürfnissen zu entsprechen.

cu phoenix

[EvilDragon]

@hboy

danke das hat mir teils weitergeholfen... das einzige prob ist wenn ich hier:

Delphi-Quellcode:

      for i:=0 to listbox2.Items.Count+1 do begin
      if listbox2.Selected[i] = true then begin
       dir := dir+listbox2.Items.Strings[i];
       Edit2.Text := dir;
       MediaPlayer1.FileName := Edit2.Text;
       break;
      end;
      end;

einen eintrag anklicke spielt er ihn auch ab, aber wenn ich noch mal drauf klicke auf einen anderen eintrag hängt er an z.b. 'ordner/unterordner/01.mp3'noch dies an '02.mp3' aber warum weiß ich, da ja das 'dir' (var für verzeichnis) ja geändert wurde... mal schauen ob ich dat hinbekomme

[EvilDragon]

es klappt nun einwandfrei nach deine methode @hboy thx...

nur ein prob hab ich nun hier mal der code:

Delphi-Quellcode:

if RadioButton1.Checked then begin
    if (ListBox1.ItemIndex > -1) and   // Prüft, ob überhapt etwas in den
       (ListBox3.ItemIndex > -1) then  // Listeboxen ausgewählt ist
      for i:=0 to listbox2.Items.Count+1 do begin
      if listbox2.Selected[i] = true then begin
       dat := pfad+listbox2.Items.Strings[i];
       MediaPlayer1.FileName := dat;
       break;
      end;
      end;
  end;

wenn mehr code benötigt wird einfach sagen.....

nun werden mp3s in diese listbox eingelesen, wie muss der code eines button lauten der beim klick dann den nächsten eintrag makiert... und das selber vür einen der den voriegen eintrag makiert

PS halt wie bei einem mp3player dann....


-----Edit:---------------------------------

Folgendes würde mir schon reichen (überListbox):
- Abfrage was angeklickt ist
- automatisch das nächste anwählen bzw. wie man das macht
- wenn das prog selber das den nächsten eintrag auswählt das dieser auch makiert ist

---Edit 2-------------------------------------

hat sich erledigt *g* hab nach 30 min rumprobieren nen code hinbekommen der das tut was er soll naja und hilfe stück für stück studiert hier der code *g*

Delphi-Quellcode:

procedure TForm1.zurueckClick(Sender: TObject);
var i : Integer;
    mp3pfile : String;
begin
    if Mediaplayer1.Mode = mpOpen then Mediaplayer1.close;
  ListBox2.ItemIndex := ListBox2.ItemIndex+1;
  Edit2.Text := pfad+Listbox2.Items[ListBox2.ItemIndex];
  Mediaplayer1.FileName := Edit2.Text;
  mp3File := Concat(MediaPlayer1.FileName);
  if not FileExists(mp3File) then begin
    ShowMessage('MP3 file '+#13#10+' '+ mp3File +' '+#13#10+'does not exist!');
    exit;
  end;
  GetID3TagInformation(mp3File, edTitle, edArtist, edAlbum, edYear, edGenre, edComment);
  MediaPlayer1.Open;
  MediaPlayer1.Play;
end;