Wieso erzeugst du denn ständig ein neues TADOQuery-Objekt und zerstörst es anschliesend wieder?
Aber es geht auch ohne TADOQuery:
Delphi-Quellcode:
function update(
const SQL :
string) :
string;
^^^ keine
Query, sondern nur eine
SQL-Anweisung
begin
try
Conn.Execute(
SQL);
// SQL-Anweisung direkt über die Connection abschicken
except
on e :
exception do begin
Writeln(e.
message);
halt(1);
end;
end;
end;