Intercettare un runtime error

di il
6 risposte

Intercettare un runtime error

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;

6 Risposte

Devi accedere o registrarti per scrivere nel forum
6 risposte