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???
