Inhalt der Listenbox in einer Schleife fassen???

[scp]

Funktioniert alles ähnlich:

Delphi-Quellcode:

procedure TForm1.ListBox1Click(Sender: TObject);
var
  inhaltini : string;
begin
  if RadioButton1.Checked then begin
    If (ListBox1.ItemIndex > -1) then
      begin
        inhaltini := dir + 
                     'mp3' + '/'
                   + 'cds_und_alben' + '/'
                   + Format('%0:2.2d',[ListBox1.ItemIndex+1]) + '/'
                   + 'inhalt.ini';
        If FileExists(inhaltini) then
          ListBox3.Items.LoadFromFile(inhaltini)
        else
          ListBox3.Items.Clear;
      end;
  end;
end;

procedure TForm1.ListBox3Click(Sender: TObject);
var
  tracksini : String;
begin
  if RadioButton1.Checked then begin
    If (ListBox1.ItemIndex > -1) and
       (ListBox3.ItemIndex > -1) then
      begin
        tracksini := dir + 
                   + 'mp3' + '/'
                   + 'cds_und_alben' + '/'
                   + Format('%0:2.2d',[ListBox1.ItemIndex+1]) + '/'
                   + Format('%0:2.2d',[ListBox3.ItemIndex+1]) + '/'
                   + 'tracks.ini';
        If FileExists(tracksini) then
          ListBox2.Items.LoadFromFile(tracksini)
        else
          ListBox2.Items.Clear;
      end;
  end;
end;

PS: Wenn du schon eine TRadioGroup auf deinem Formular hast, brauchst du nicht extra noch TRadioButtons draufzusetzten. Auch dort kannst du eine "inhalt.ini" per
RadioGroup1.Items.LoadFromFile(dir + 'mp3/' + 'inhalt.ini') auslesen und entsprechend per RadioGroup1.ItemIndex ermitteln, welche Kategorie ausgewählt wurde.