Probleme mit repeat

[Ferox]

Hallo,

ich habe folgendes Problem mit einer repeat-Schleife. Hier erstmal der code:

Delphi-Quellcode:

repeat
     Zahl_Result := Random(Zahl_In+1);
     Str_Result := IntToStr(Zahl_Result);
     Ed_Prozess.Text := Str_Result;
  until
     Zahl_In = Zahl_Result;

Normalerweise sollte jetzt nacheinander alles abgearbeitet werden. Also erst sollte eine random Zahl zwischen 0 und Zahl_In+1 erzeugt werden.
Dann sollte das Ergebnis in einen String umgewandelt werden und ausgegeben werden, bis Zahl_In = Zahl_Result ist.
Was allerdings passiert, ist, dass eine random Zahl erzeugt wird und sie dann, wenn Zahl_In = Zahl_Result, ausgegeben wird.
Kann man das irgendwie ändern, sodass ich auch eine Zahl ausgegeben bekomme wenn sie nich mit Zahl_In übereinstimmt?

Schonmal jetzt danke im vorraus
Ferox

[mkinzler]

Gib der GUI auch die Chance, den wert anzuzeigen

Delphi-Quellcode:

Application.ProcessMessages;

[Ferox]

Vielen Dank für die schnelle Hilfe. :-D