jetzt funzt es, aber nur sicherheitshalber: ich habe eine zweite Funktion zum ausführen von Querys, die die Datenbank ändern:
Code:
procedure TForm1.execqueryinsert(querystring:string);
begin;
qrmain.Close;
if dolog = true then memo1.Lines.Add(datetimetostr(now)+': '+querystring);
qrmain.sql.Clear;
qrmain.sql.Add(querystring);
qrmain.ExecSql;
end;
stimmt die den?