ADO-Funktion beendet nicht

[shmia]

Exceptions in Threads werden nicht vom globalen Application Objekt abgefangen und angezeigt
sondern gehen verloren, wenn man nichts dagegegen unternimmt.
Deshalb:

Delphi-Quellcode:

procedure TOracleAccess.Execute;
var
   s : string;
begin
   try
      InternalExecute;  // die bisherige procedure Execute wurde ausgelagert
   except
      on E:Exception do
      begin
         s := E.Classname+ ' - ' + E.message+#13#10; 
         StringToFile('C:\exception.log', s);
      end;
   end;
end;