Forum: Object-Pascal / Delphi-Language
Delphi
by EvilDragon,
3. Feb 2004
es klappt nun einwandfrei nach deine methode @hboy thx...
nur ein prob hab ich nun hier mal der code:
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 = true then begin
Forum: Object-Pascal / Delphi-Language
Delphi
by EvilDragon,
3. Feb 2004
@hboy
danke das hat mir teils weitergeholfen... das einzige prob ist wenn ich hier:
for i:=0 to listbox2.Items.Count+1 do begin
if listbox2.Selected = true then begin
dir := dir+listbox2.Items.Strings;
Edit2.Text := dir;
MediaPlayer1.FileName := Edit2.Text;
break;
Forum: Object-Pascal / Delphi-Language
Delphi
by EvilDragon,
3. Feb 2004
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....
Forum: Object-Pascal / Delphi-Language
Delphi
by EvilDragon,
3. Feb 2004
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
Forum: Object-Pascal / Delphi-Language
Delphi
by EvilDragon,
3. Feb 2004
hat jemand vieleicht noch einen weg bzw. kann mir einen der genant in einem beispielcode zeigen *schäm*
halt listbox ein ließt auß dem pfad der in dir steht
listbox3 dann aus dir+listbox1
und listbox2 zeigt dann alle *.mp3 aus dir+listbox1+listbox3 an
meine momentane lösung läuft über inis die doch ein bissel probs beim weiteren vorgehen machen
danke schon mal
Forum: Object-Pascal / Delphi-Language
Delphi
by EvilDragon,
28. Jan 2004
habs wie folgend gelößt:
procedure TForm2.FormCreate(Sender: TObject);
var x,zahl : Integer;
begin
dir := ExtractFilepath(ParamStr(0))+'mp3\eigene_mp3s'; //direkter Pfad vom Programm
for x := 01 to 99 do begin
zahl := x;
verzeichnis := dir+'\'+IntToStr(zahl);
if DirectoryExists(verzeichnis) then
Forum: Object-Pascal / Delphi-Language
Delphi
by EvilDragon,
28. Jan 2004
hab lange gesucht aber nicht genau das gefunden.. nur wie man ordner erstellt oder dateien auflistet...
ich suche was was aus "dir" (aktueller pfad) die unterordner auflistet und deren namen in ListBox1 reinschreibt... nett wehre auch noch, wenn man dann einen namen anklickt das dier in Edit1.Text steht
danke schon mal für hilfe....