Saisie de l'heure
Fermé
firas scofield
Messages postés
14
Date d'inscription
dimanche 30 mars 2014
Statut
Membre
Dernière intervention
5 novembre 2016
-
Modifié par firas scofield le 23/04/2014 à 08:53
Profil bloqué - 23 avril 2014 à 12:58
Profil bloqué - 23 avril 2014 à 12:58
1 réponse
Salut
Si tu déclares :
L'instruction :
HH non déclaré, ainsi on pense que le compilateur est assez doué de comprendre ce qu'on souhaite, ce qui n'est pas le cas.
Meme si on peut par un traitement spécifique décomposer une telle chaine, extraire les valeurs, nous nous voyons enfin de compte obligé d' encoder les valeurs pour former une valeure TDateTime valide, un tel choix est couteux et inutile.
Voici une solution plus au moins optimisée :
Si tu déclares :
var Heure : String;Si l'utilisateur entre la chaine : 23:19:59
L'instruction :
ReadLn(HH, MM, SS);renvoie l'erreur : Identificateur
HH non déclaré, ainsi on pense que le compilateur est assez doué de comprendre ce qu'on souhaite, ce qui n'est pas le cas.
Meme si on peut par un traitement spécifique décomposer une telle chaine, extraire les valeurs, nous nous voyons enfin de compte obligé d' encoder les valeurs pour former une valeure TDateTime valide, un tel choix est couteux et inutile.
Voici une solution plus au moins optimisée :
program Former_Heure;
var HH, MM, SS : Word;
Time : TDateTime;
begin
{ Attention, les valeurs saisies sont supposées
dans les limites de la formation des nombres sexagésimaux }
Write('Heure : 0 .. 23 : ');
ReadLn(HH);
Write('Minutes : 0 .. 59 : ');
ReadLn(MM);
Write('Secondes : 0 .. 59 : ');
ReadLn(SS);
Time := EncodeTime(HH, MM, SS, 00);
WriteLn;
WriteLn('L''heure saisie est : ', TimeToStr(Time));
ReadLn;
{ TODO -oUser -cConsole Main : placez le code ici }
end.
