Vielen Dank für eure Antworten. Mein Problem ist trotzdem noch nicht gelöst.
hier mein derzeitiger Code:
Delphi-Quellcode:
procedure TPool.FormClose(sender: Tobject; var Action: TCloseAction);
begin
Zufallszahl_bilden(); // in dieser procedure wird die Zufallszahl gebildet, var Zufallszahl: extended;
form1.Adoquery1.close;
form1.adoquery1.sql.add('update Tabelle set Wert = '+floattostr(Zufallszahl));
form1.adoquery1.exesql;
while not form1.adoquery1.eof do begin
form1.adoquery1.next;
end;
form1.adoquery1.close;
end;
ich hoffe mir kann jemand helfen