Hallo meine Lieben!
Meine Ausgangssituation:
Ich habe eine Datenbank mit einer Tabelle= Englisch, welche eine Spalte= Wert aufweist.
In der Spalte Wert steht in jeden Datensatz eine andere Zahl.
Mein Ziel:
ist es jetzt diese Zahlen zu ändern.
und zwar soll wieder in jeder Zeile eine neu Zahl nach zufälligen Wert stehen.
Mein Problem:
Nach dem Ausführen des Programms steht in jeder Zeile die gleiche Zahl und zwar entweder 0 oder 1.
hier mein Programmiercode:
Globale Variablen: Zufallszahl: extended; und Wert:= string;
Delphi-Quellcode:
procedure Tpool.Zufallszahl_bilden();
begin
randomize;
Zufallszahl:= (random);
Wert:= formatfloat('0.00', Zufallszahl);
showmessage(Wert); //hier bin ich mit dem Ergebnis zufrieden (z.B. 0,97678576)
end;
procedure Tpool.Wert_change();
begin
Zufallszahl_bilden();
form1.adoquery1.close;
form1.adoquery1.sql.clear;
form1.adoquery1.sql.add('update Englisch set Wert = "'+floattostr(Zufallszahl)+'"');
form1.adoquery1.execsql;
while not form1.adoquery1.eof do begin
Zufallszahl_bilden();
form1.adoquery1.next;
end;
form1.adoquery1.close;
end;
Ich hoff ihr könnt mir helfen.
