Random?

[Killer]

Hi ich hab ein Problem mit dem Zufallsgenerator. Und zwar gehts drum, dass ich bei jedem Aufruf der Funktion einen anderen Wert haben möchte. Mein Quellcode:

Delphi-Quellcode:

procedure TForm1.Random;
begin
 Randomize;
 DBListBox1.ItemIndex := RandomRange(0,DBListBox1.Items.Count-1);
 varia := DBListBox1.Items[DBListBox1.ItemIndex];
end;

Zur Erklärung: varia ist eine lokale Stringvariable, in den ich den selektierten Wert der ListBox hineinkopiere, um ihn weiterzuverwenden. Naja nur kommt halt jedes mal der gleiche Wert raus. Wieso???

[phlux]

Randomize nur einmal aufrufen am Besten im OnCreate der Form oder im Initialization Teil deines Progs

[Killer]

Hm das bringt mir aber nicht viel, da ich die Funktion per Button aufrufen möchte. Gehts nicht auch anders?

[himitsu]

Normalerweis leitet Randomize den Startwert (RandSeed) einen aus der Systemzeit abgeleiteten Wert zu, was eigendlich bedeutet das die 1. Zufallszahl "jedesmal" eine Andere sein sollte.

Aber vesuche mal Randomize nicht in deiner Zufallsfunktion auszuführen, sondern nur einmal im OnCreate-Ereignis deines Formulars.


http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif

[Frank Bicking]

Liegt am Randomize, führe dies nur einmal aus, z.B. direkt nach Programmstart.

[Killer]

Hm nee kann nicht sein, habs in das OnCreate der Form reingemacht und will trotzdem nicht. Komischerweise beim 1ten Aufruf geht die Funktion immer

[himitsu]

Und so:

Delphi-Quellcode:

Procedure TForm1.FormCreate(Sender: TObject);
  Begin
    Randomize;
  End;

Procedure TForm1.Random;
  Begin
    DBListBox1.ItemIndex := Random(DBListBox1.Items.Count);
    varia := DBListBox1.Items[DBListBox1.ItemIndex];
  End;

http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif

[scp]

Mit grosser warscheinlichkeit liegt es daran, das deine Prozedur Random heisst. Das beisst sich mit einer Delphi-Funktion, die genauso heisst. Bennen sie mal um in LBRandom oder so und teste es nochmal.

[Killer]

@himitsu:

Hab ich probiert geht nicht!

@scp:

Geht auch nicht. Hab sie überall umbenannt.

Schon komisch, wie gesagt beim 1ten Aufruf gehts, da kommt wirklich ne Zufallszahl, beim 2ten Aufruf aber nicht.

[himitsu]

@scp:
die Prozedur Random ist ja in der Klassen TForm1 und kann sich normalerweise nich mir der Funktion Random überschneiden.

@Killer:
wenn möglich stell doch mal etwas mehr von deinem Code zur Verfügung.
Vieleicht wird ja was anderes wichtiges überseh'n.


http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif