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;