update bzw. sqlstr Fehler

[DeddyH]

Delphi-Quellcode:

procedure Form1.Zufallszahl_bilden();
var
  Zufallszahl: extended;
  Wert: string;
begin
  randomize;  //besser nur einmalig aufrufen
  Zufallszahl:= (random(1)); //ob das so stimmt?

  adoquery1.close;
  //Damit bekommen alle (!!) Datensätze den Wert zugewiesen
  adoquery1.sql.Text := 'update Tabelle Set Wert = :zahl';
  adoquery1.Parameters.ParamByName('zahl').Value := zufallszahl;
  adoquery1.ExecSQL; //es kommt ja keine Ergebnismenge beim Update
end;