Zitat von
rai29:
Delphi-Quellcode:
function Tdm.Query(
SQL:widestring):integer;
var oldcmd:Tstrings;
i:integer;
begin
oldcmd:=tstringlist.Create;
oldcmd:=qry.SQL;
Beim letzten Befehl ist Dir ein böser Schnitzer passiert!!!
Du kopierst
nicht den Inhalt von qry.SQL, sondern einen
Zeiger auf ein TStrings-Objekt.
Alles Weitere ist dann ein Folgefehler.
Richtig wäre:
Delphi-Quellcode:
oldcmd.Assign(qry.SQL);
....
qry.SQL.Assign(oldcmd); // und wieder zurück laden