Empêcher les erreurs

fabiin - 6 oct. 2001 à 21:51
 DelphiCool - 7 oct. 2001 à 18:42
Salut
Exite t'il en Delphi, comme en vb, une procedure qui passe les erreurs,
en vb c On Error Resume Next

Merci par avance
@+
Fabs 8-)

1 réponse

Pour l'ouverture d'un fichier c'est ça

var F : file;
begin
assignfile(F,'ProgZed.com'); {Le fichier n'existe pas}

{$I-}
reset(F); {On evite ainsi le message File not found}
{$I+}

If IOResult <> 0 then
Begin
MessageBoxA(0,'substitution du message d''erreur','oups',0);
exit;
end;

closefile(F);

end;
0
Rejoignez-nous