Forum: Object-Pascal / Delphi-Language
by Helmi,
25. Jan 2012
Hallo,
vielleicht solltest noch die Eingabe etwas abfangen.
Falls es TryStrToInt in deinem Delphi schon gibt, könntest folgendes machen:
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
Forum: Object-Pascal / Delphi-Language
by Helmi,
25. Jan 2012
Hallo,
zuerst einmal solltest du die Variable "Zug" initialisieren.
procedure TForm1.KugelnZiehen(Sender: TObject);
var s,w,fall,zug:integer;
begin
//init
Zug := 0;