For Schleife in Abhängigkeit der Zeilen aus Listbox

[dR4g0N]

Jaja schon wieder ich, langsam ist es mir schon peinlich "solche Fragen" zu stellen, aber ich komm einfach nicht weiter ...


Ich habe eine for Schleife. Die Anzahl der Schleifen ist wegen verschiedener Listboxen varierbar
(durch die Anzahl der Zeilen die in der Listbox sind // for I := 0 to Listbox1.Items.count - 1 do).
Ausserdem habe ich 4 RadioButtons. RB1 entspricht Anzahl der Zeilen in Listbox1, RB2 - LB2 usw.
Wenn ich jetzt RB1 markiere dann möchte ich, dass die Anzahl der Schleifen = der Anzahl der Zeilen
von Listbox1 ist.

Mein Problem ist, dass ich es nicht hinbekomme, die Anzahl der Schleifen in Abhängigkeit von jedem
einzelnen RadioButton sprich Anzahl der Zeilen in der dazugehörigen Listbox bekomme.

Natürlich könnte ich

if RadioButton1.Checked then
begin
for I := 0 to Listbox1.Items.count - 1 do
begin
"""MEINE ANWEISUNGEN"""
end;
end;

oder so machen, jedoch wäre dann der Code ca. 4 Seiten lang ...


Ich hoffe ihr versteht mein problem ^^

Thx schonmal

[fkerber]

Hi!

Ich würde es so machen:

Delphi-Quellcode:

var 
deine_laenge: integer;

if radionbutton1.Checked then
deine_laenge:=Listbox1.Items.count - 1;

if radionbutton2.Checked then
deine_laenge:=Listbox2.Items.count - 1;

for i:=0 to deine_laenge do begin

Ciao fkerber

[dR4g0N]

gut das klappt so kürze ich den quelltext um einiges. Dickes THX :>

Aber was wäre wenn ich jetzt 10 RadioButtons hätte, könnte ich den Quelltext dann auch durch eine Rafinesse verkürzen? ^^

[fkerber]

Hi!

Um dir die 10 if- abfragen zu ersparen?
Dann schau mal nach Case.

Ciao fkerber

[Alibi]

So ungefähr:

Delphi-Quellcode:

var
  deine_laenge, i: integer;
begin

  for i := 1 to [anzahl der radiobuttons] do
  begin
    if (FindComponent('Radiobutton' + inttostr(i)) as TRadioButton).Checked then
    begin
      deine_laenge := (FindComponent('ListBox' + inttostr(i)) as TListBox).count - 1;
      break;
    end;
  end;

  for i := 0 to deine_laenge do
  begin
    ///////
  end;

end;

[dR4g0N]

thx an euch beiden, werde mir beides angucken :>