Problem mit if

[Dr4ke]

Hmm, ich bekomme zwar keine Fehlermeldung mehr, aber auch keine Zahlen mehr in dei Textfelder ...

Delphi-Quellcode:

procedure TForm1.btnWuerfelnClick(Sender: TObject);
var
ergebnis,ergebnis2, addieren2, tmp, tmp2 : integer;
begin
  if Trim(edtAnzahl.Text) = '' then
tmp := 0
  else
tmp := StrToInt(edtAnzahl.Text);
  if Trim(edtAnzahlBot.Text) = '' then
tmp2 := 0
  else
tmp2 := StrToInt(edtAnzahlBot.Text);
Addieren;
ergebnis := tmp + Addieren;
addieren2 := random(6)+1;
ergebnis2 := tmp2 + addieren2 ;
edtAnzahl.Text := IntToStr(ergebnis);
edtAnzahlBot.Text := IntToStr(ergebnis2);

if StrToInt(edtAnzahl.Text) >= 21 then
begin
ShowMessage('Du verlierst!');
NewGame;
end
else
if StrToInt(edtAnzahlBot.Text) >= 21 then
begin
ShowMessage('Du gewinnst!');
NewGame;
end
else
begin
if (StrToInt(edtAnzahl.Text) >= 21) and (StrToInt(edtAnzahlBot.Text) >= 21) then
ShowMessage('Draw!');
NewGame;
end;
end;

function TForm1.Addieren : integer;
begin
Label1.Visible := False;
Addieren := random(6)+1;
end;


procedure TForm1.btnExitClick(Sender: TObject);
begin
Close;
end;

procedure TForm1.NeuesSpiel1Click(Sender: TObject);
begin
NewGame;
end;

procedure TForm1.Beenden1Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Info1Click(Sender: TObject);
begin
Application.MessageBox('Coded by Drake', 'Information', MB_OK + MB_ICONINFORMATION + MB_TASKMODAL);
end;


procedure TForm1.NewGame;
begin
edtAnzahlBot.Text:= '';
edtAnzahl.Text := '';
Label1.Visible := True;
end;

end.