Zufallsvariable

[Hans33]

Das ist die Lösung:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  randomize;
  z := random(50)+1;

end;

procedure TForm1.Button1Click(Sender: TObject);
var r : integer;
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;
end.

DeddyH hats richtig gemacht nun funktioniert es