Roulette

[Bjoerk]

Wenn ich richtig aufgedröselt hab?

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
  A, B, C: integer;
begin
  if not TryStrToInt(Edit1.Text, A) then
    ShowMessage('Einsatz ungültig')
  else
  begin
    B := Random(37);
    Edit3.Text := IntToStr(B);
    If B in [1, 3, 5, 7, 9, 12, 14, 16, 18, 19, 21, 23, 25, 27, 30, 32, 34, 36] then
      C := A + A
    else
      C := 0;
    If B = 0 then
      Edit2.Text := IntToStr(A div 2)
    else
      Edit2.Text := IntToStr(C);
  end;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  Randomize;
end;