Zufallsvariable

[Hans33]

ob ich r:Integer; oder r:Real; mach macht kein unterschied im Ergebnis

[DeddyH]

Wie äußert sich der Fehler denn?

[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!

[Hans33]

@DeddyH: also ich starte das programm.
Die Lösungszahl ist 0.
Starte ich das Programm neu, ist die Lösungszahl 0.
Das kann ich so oft ich will machen, immer 0.

[alzaimar]

Zeig mal Deinen Code.

[quendolineDD]

Scheint als würde bei dir Randomize nicht aufgerufen.
Hast du den Quellcode einfach nur kopiert? Klicke mal doppelt auf deine Form, das bei dir selber das OnCreate-Ereignis erzeugt wird ...

[DeddyH]

Ist das FormCreate auch zugewiesen? Schau mal im Objektinspektor nach.

[foerster7892]

bei neuen delphiversionen muss mann oder frau den randomize nicht mehr extra aufrufen(zu mindest nicht für einfaches random ob man den noch für was anderes nutzen kann weiß ich net)

[Hans33]

@forerster7891: Klappt nicht.
zB. 16 ist zu hoch
15 zu klein
15,5
oder 15.5
kommt eine fehlermeldung

[DeddyH]

In meiner Hilfe (D2007) steht:

Zitat:

Um den Zufallszahlengenerator zu initialisieren, rufen Sie Randomize einmal auf oder weisen der Variablen RandSeed vor dem Aufruf von Random einen Wert zu.