ADOQuery: Eigenschaft SQL fehlt

[shmia]

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