utilisation de try...except...end [RESOLU][D 7] - Delphi/Pascal - Programmation
Marsh Posté le 02-11-2007 à 14:00:12
Salut ,
Je sais pas comment tu fais ton traitement mais regarde avec TryStrToInt pour la distance .
Marsh Posté le 02-11-2007 à 14:25:08
voila ce que j'ai fais
try
distance:=strtoint(distance_str);
except
write('Erreur sur la distance')
end;
mais ça marche pas, j'ai toujours le message barbare de delphi
Marsh Posté le 02-11-2007 à 10:53:23
bonjour,
je cherche à vérifier, si ce que l'utilisateur rentre est bien ce dont le programme a besoin. Je m'explique, l'utilisateur doit rentrer une instruction du type "TOURNE 30". de là, j'extrait "TOURNE", et "30" dans deux variables (mouvement : string,l'autre distance : integer).
Mon probleme est le suivant, si l'utilisateur tape "TURNE 30", un message d'erreur doit s'afficher, ça jusque là je sais comment faire, par contre s'il rentre "TOURNE T30" ou "TOURNE GTE", une message d'erreur doit s'afficher. Comment faire pour dire que si distance n'est pas un entier, faire afficher un message ?
Merci d'avance à tous.
Si je vous comprenez pas tout, dites le, j'essaierai de faire plus clair !
EDIT : merci de voir mon dernier message !
Message édité par gtaman31 le 02-11-2007 à 17:16:25