Einzelnen Beitrag anzeigen

EvilDragon

Registriert seit: 15. Sep 2003
Ort: Berlin
143 Beiträge
 
Delphi 7 Enterprise
 
#13

Re: Inhalt der Listenbox in einer Schleife fassen???

  Alt 25. Jan 2004, 09:33
thy das gleich kommentiert hat... dat muss erst mal wieder verdauen
--------------------------------------

hm... so gans raff ich dat noch net @scp, hab mal eben meine laaange prcoedur gekürtz und vielleicht kannst du mir ja verraten wie ich genau dein beispiel einbinde...

Code:
procedure TForm1.ListBox2Click(Sender: TObject);
var track : array [1..25] of String;
    x : Integer;
begin
  if RadioButton1.Checked then begin
    if ListBox1.Selected[0] then begin
      if ListBox3.Selected[0] then begin
        for x := 1 to 25 do
        track[x] := 'mp3/cds_und_alben/' + '01' + '/' + '01' + '/' + Format('%0:2.2d', [x]) + '.mp3';
        if Listbox2.Selected[0] then begin
          MediaPlayer1.FileName := track[1];
          MediaPlayer1.Open;
          Trackbar1.Position := 0;
          Trackbar1.Max := MediaPlayer1.TrackLength[1];
          ProgressBar1.Max := MediaPlayer1.TrackLength[1];
        end;
        .
        .
        if Listbox2.Selected[24] then begin
          MediaPlayer1.FileName := track[25];
          MediaPlayer1.Open;
          Trackbar1.Max := MediaPlayer1.TrackLength[1];
          ProgressBar1.Max := MediaPlayer1.TrackLength[1];
        end;
      end;
      if ListBox3.Selected[1] then begin
        for x := 1 to 25 do
        track[x] := 'mp3/cds_und_alben/' + '01' + '/' + '02' + '/' + Format('%0:2.2d', [x]) + '.mp3';
        if Listbox2.Selected[0] then begin
          MediaPlayer1.FileName := track[1];
          MediaPlayer1.Open;
          Trackbar1.Max := MediaPlayer1.TrackLength[1];
          ProgressBar1.Max := MediaPlayer1.TrackLength[1];
        .
        .
        end;
        if Listbox2.Selected[24] then begin
          MediaPlayer1.FileName := track[25];
          MediaPlayer1.Open;
          Trackbar1.Max := MediaPlayer1.TrackLength[1];
          ProgressBar1.Max := MediaPlayer1.TrackLength[1];
        end;
      end;
      if ListBox3.Selected[2] then begin
        for x := 1 to 25 do
        track[x] := 'mp3/cds_und_alben/' + '01' + '/' + '03' + '/' + Format('%0:2.2d', [x]) + '.mp3';
        if Listbox2.Selected[0] then begin
          MediaPlayer1.FileName := track[1];
          MediaPlayer1.Open;
          Trackbar1.Max := MediaPlayer1.TrackLength[1];
          ProgressBar1.Max := MediaPlayer1.TrackLength[1];
        end;
        .
        .
        if Listbox2.Selected[24] then begin
          MediaPlayer1.FileName := track[25];
          MediaPlayer1.Open;
          Trackbar1.Max := MediaPlayer1.TrackLength[1];
          ProgressBar1.Max := MediaPlayer1.TrackLength[1];
        end;
      end;
      if ListBox3.Selected[3] then begin
        for x := 1 to 25 do
        track[x] := 'mp3/cds_und_alben/' + '01' + '/' + '04' + '/' + Format('%0:2.2d', [x]) + '.mp3';
        if Listbox2.Selected[0] then begin
          MediaPlayer1.FileName := track[1];
          MediaPlayer1.Open;
          Trackbar1.Max := MediaPlayer1.TrackLength[1];
          ProgressBar1.Max := MediaPlayer1.TrackLength[1];
        end;
        .
        .
        if Listbox2.Selected[24] then begin
          MediaPlayer1.FileName := track[25];
          MediaPlayer1.Open;
          Trackbar1.Max := MediaPlayer1.TrackLength[1];
          ProgressBar1.Max := MediaPlayer1.TrackLength[1];
        end;
      end;
      if ListBox3.Selected[4] then begin
        for x := 1 to 25 do
        track[x] := 'mp3/cds_und_alben/' + '01' + '/' + '05' + '/' + Format('%0:2.2d', [x]) + '.mp3';
        if Listbox2.Selected[0] then begin
          MediaPlayer1.FileName := track[1];
          MediaPlayer1.Open;
          Trackbar1.Max := MediaPlayer1.TrackLength[1];
          ProgressBar1.Max := MediaPlayer1.TrackLength[1];
        end;
        .
        .
        end;
        if Listbox2.Selected[24] then begin
          MediaPlayer1.FileName := track[25];
          MediaPlayer1.Open;
          Trackbar1.Max := MediaPlayer1.TrackLength[1];
          ProgressBar1.Max := MediaPlayer1.TrackLength[1];
        end;
      end;
    end;
  end;
end;
diese .. heißt das da gekürtzt wurde und das ganze geht so weit das es am ende heißt ListBox1.Selceted[10] also 10 mal 5mal und 25mal (hoffe man versteht was ich meine, jedenfalls viele viele programmzeilen)

PS: hier projektdatei nun im neuen gewand (mit array) und sorry den immer och langen code
Angehängte Dateien
Dateityp: zip file.zip (293,6 KB, 7x aufgerufen)
www.codedragon.de check this out!
  Mit Zitat antworten Zitat