Zufallszahl mit Kommerstellen

[mkinzler]

Delphi-Quellcode:

procedure TPool.FormClose(sender: Tobject; var Action: TCloseAction);
begin

form1.Adoquery1.close;
form1.adoquery1.SQL.Text := 'select id from Tabelle;';
form1.adoquery2.SQL.Text := 'Update Tabelle set wert = :wert where id = :id';
form1.Adoquery1.Open;
while not form1.adoquery1.eof do 
begin
  Zufallszahl_bilden(); // in dieser procedure wird die Zufallszahl gebildet, var Zufallszahl: extended;
  form1.Adoquery2.ParamByName('wert').Value := Zufallszahl;
  form1.Adoquery2.ParamByName('id').Value := form1.Adoquery1.FieldByName('id').Value;
  form1.adoquery2.ExecSQL;
  form1.adoquery1.next;

end;
form1.adoquery1.close;
form2.adoquery1.close;
end;