Discussion :

[le-an]

Bonjour.

Y-a-t-il en turbo pascal la possibilité d'éviter les plantages ? Je m'explique :

Soit par exemple le programme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
VAR x : REAL;
 
BEGIN
          WRITE('Entrez un nombre : ');
          READLN(x);
END.

Si l'utilisateur entre un caractère au lieu d'un réel, le programme va planter. Je connais un Pascal autre que le turbo où on peut écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
WRITE('Entrez un nombre : ');
 
TRY
     READLN(x);
RECOVER
     WRITELN('La valeur entrée n''est pas un nombre !');

Donc, si la lecture de x échoue, le programme éxécute la partie RECOVER.

Existe-t-il l'équivalent en turbo ?

[M.Dlb]

I n'y a pas d'équivalent pour turbo pascal...

Si cela concerne seulement la conversion d'entiers à string, tu peux utiliser les codes d'erreur de la fonction val. Tu peux également regarder du côté des directives de compilations, il me semble qu'en jouant avec on peut eviter les erreurs d'exécution et gérer ainsi les messages d'erreur...

[le-an]

OK merci pour la réponse

[pascal_damien]

Salut,


Pour les caractères, il y'a {$I-} et {$I+} conjugués avec IOResult qui donnent de bons résultats ( le programme se poursuit sans planter ).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
  {$i-}
  ReadLn ( x );
  if ( IOResult <> 0 ) then
  begin
    { traitement de l'erreur}
  end
  {$i+}
  {...}