Zufallsvariable

[foerster7892]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var r : integer;
begin
  r := StrToInt(edit1.Text);
  z := random(50)+1;
       if r < z then Label2.Caption := 'Zu niedrig';
       if r > z then Label2.Caption := 'Zu hoch';
       if r = z then Label2.Caption := 'Erraten';
end;

Hi
ich hab zwar selbst keine Ahnung von irgendwas aber probiers mal so!