Fehler in Rechenprogramm

[DeddyH]

Zitat:

Delphi-Quellcode:

case RadioGroup1.ItemIndex of
  0: begin
      label2.caption:= '+';
      REPEAT
        if radiogroup2.ItemIndex=0 then
        begin
        n := random(100) +1; m:= random(100) +1;
        end;
      UNTIL m+n <=100;

Was passiert denn dann in z.B. folgender Konstellation: RadioGroup1.ItemIndex = 0, RadioGroup2.ItemIndex = 1, m = 100 und n = 100? Die Schleife wird immer wieder durchlaufen, m und n aber nicht verändert, da der ItemIndex der 2. Radiogroup ja nicht stimmt.

[edit] Sry, Willkommen in der DP [/edit]