Der Vergleich und die Antwort sind ja einfach,
Code:
procedure TForm1.btnSubtraktionClick(Sender: TObject);
var a, b : Integer;
begin
randomize; // Initialisierung von Random
edtMinuend.Caption := IntToStr(Random(10));
edtSubtrahend.Caption := IntToStr(Random(10));
edtDifferenz.Caption := '';
lblHinweis.color := clNone;
a := StrToInt(edtMinuend.Text);
b := StrToInt(edtSubtrahend.Text);
if a < b then showmessage ('Das kannst du noch nicht, klicke bitte noch einmal');
end;
aber es sollen nur, der Altersstufe entsprechend, lösbare Aufgaben angezeigt werden.
Der Test hat gezeigt, dass der Junge nach dem Wegklicken der Message dann trotzdem auf den Prüf-/Lösungsbutton klickt (schließlich muss man ja sehen was da passiert).
Deshalb konkretisiere ich meine Frage noch. Wie kann ich nach der Erzeugung der Zufallszahlen und dem Vergleich das erneute Durchlaufen der Prozedur erzwingen, bis eine solche Aufgabe angezeigt wird?
Wie ihr seht habe ich die Abfrage schon aus der zweiten Prozedur herausgenommen.
vG
Ulrich