Salve a tutti
in Delphi Pascal esiste un modo per intercettare un runtime error?
Più o meno come nell'esempio proposto (che tuttavia non funziona con le nuove versioni di Delphi Pascal), nel quale, in caso di qualsiasi errore runtime, si crea un file con il numero di errore, utile per capire meglio cosa è successo.
Grazie in anticipo!
var vecchiaexit :pointer;
{$F+} procedure miaexit; {$F+}
begin
if not (erroraddr=nil) then
begin
if exitcode<>0 then
begin
assignfile(testoerr,'file_errore.txt');
rewrite(testoerr);
writeln(testoerr,'ERRORE NON RECUPERABILE: ',exitcode);
closefile(testoerr);
end;
exitproc:=vecchiaexit;
erroraddr:=nil;
end;
end;
Con l'inizializzazione:
vecchiaexit:=exitproc;
exitproc:=@miaexit;