Zufallsvariable

[DeddyH]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  randomize;
  z := random(50)+1;
  ShowMessage(IntToStr(z)); //zur Kontrolle
end;

procedure TForm1.Button1Click(Sender: TObject);
var r : integer; //real mit integer zu vergleichen macht selten Sinn
begin
  r := StrToInt(edit1.Text);

       if r < z then Label2.Caption := 'Zu niedrig'
  else if r > z then Label2.Caption := 'Zu hoch'
  else if r = z then Label2.Caption := 'Erraten';
end;