Gerenciamento de Erros sob Pascal

Questão

Por padrão, em Pascal, o tratamento de erros é fornecido pelo compilador. Por esta razão, o programa termina exibindo uma mensagem começando com erro de Runtime seguido por erro numbe r ...

Portanto, se o programador quiser manipular os erros em si, deve desativar a opção de verificação de erro pelo compilador, usando o menu Opções e o Build ... ou usar as diretivas do compilador diretamente no programa de código-fonte.

Por exemplo, se em um determinado programa, queremos abrir um arquivo pela redefinição e que o arquivo não existe, uma mensagem de erro é exibida e o programa é interrompido.

Solução

Para evitar isso, podemos testar ou não um arquivo e, em seguida, agir de acordo usando a diretiva de compilador $ I e IOresult como a função que retornará o resultado de entrada / saída. Com a diretiva ($ I-), o programador deve gerenciar este tipo de erro.

Este é um programa que permite inserir o nome físico de um arquivo e abri-lo. Se o arquivo não existir, ele é criado sem terminar o programa no erro: erro de execução 2 em ... (sem arquivo).

 Programa de Abertura; Usa o WinCrt; Digite Arquivo; Var f: File; nome: string; Begin Write ('Nome do Arquivo:'); Readln (nome); Atribuir (f, nom); {$ I-} Redefinir (f); Se IOresult 0, então, reescreva (f); {$ I +} final. 

Obrigado a Zouari Lazhar por essa dica.

Artigo Anterior Próximo Artigo

Principais Dicas