Einfache "Kugeln Ziehen"-Aufgabe mit Schleife

[Helmi]

Hallo,

vielleicht solltest noch die Eingabe etwas abfangen.

Falls es TryStrToInt in deinem Delphi schon gibt, könntest folgendes machen:

Delphi-Quellcode:

procedure TForm1.KugelnZiehen(Sender: TObject);
 var s,w,fall,zug:integer;
begin
  If (not TryStrToInt(Weiss.Text, w)) or (not TryStrToInt(Schwarz.Text, s)) then
    begin
      ShowMessage('Eingaben prüfen!');  //oder was auch immer
      exit;
    end;
 
repeat

Somit gibts keine unschöne Exception wenn man keine Zahlen in die Edits eingibt.
Oder man verwendet MaskEdit´s statt Edits.

[Edit]
Klammerfehler beseitigt