Re: Problème avec des get(fichier, integer)

["Charles Fr. Rey" <charlesfr.rey@epfl.ch>]

In my opinion you'd better use the predefined date & time types ...

Y'a plein de fonctions et de types déjà prédéfinis et comme ça tu
utilises un format de date "standard". Tout dépends évidemment de
l'utilisation de ton programme, mais si le format de date n'est pas
imposé, t'as meilleur temps d'utiliser le format prédéfini.

Benoit F wrote:
> 
> I'm Fench so spry for my bad english. En français plus bas !
> I've the line "1/12/01:12" in a file, This line is a french date
> (day/month/year) with an hour
> 
> I've got the following type date :
>    subtype tjours is positive range 1..31;
>    subtype tmois is positive range 1..12;
>    subtype tans  is positive range 1..99;
> 
>   type TDate is record
>       J:tjours;
>       M:tmois;
>       A:tans;
>    end record;
> 
> I wrote this procedure
> 
>    procedure Get (F: in File_Type; D: out TDate) is
>    -- Entree d'une date a partir du fichier
>       Slash : Character;
>    begin
>       Get (F,D.J);
>       Get (F,Slash);
>       Get (F,D.M);
>       Get (F,Slash);
>       Get (F,D.A); <= here raise DATA_ERROR
>    end;
> 
> The error is because of the ':' charcater whose folow the date. If I replace
> the ':' by an other character, the procedure work !
> If sombody know the solution to make work my procedure !
> 
> ------------------------------------------------------------
> French traduction
> 
> mon fichier contient sur une ligne : "1/12/01:12"
> Elle correspond à une date suivie d'un nombre d'heure
> 
> j'ai un type date :
> 
>    subtype tjours is positive range 1..31;
>    subtype tmois is positive range 1..12;
>    subtype tans  is positive range 1..99;
> 
>   type TDate is record
>       J:tjours;
>       M:tmois;
>       A:tans;
>    end record;
> 
> j'ai crée la fonction
> 
>    procedure Get (F: in File_Type; D: out TDate) is
>    -- Entree d'une date a partir du fichier
>       Slash : Character;
>    begin
>       Get (F,D.J);
>       Get (F,Slash);
>       Get (F,D.M);
>       Get (F,Slash);
>       Get (F,D.A); <= plantage ici DATA_ERROR
>    end;
> 
> Le plantage est causé par le caractère ':' qui suit la date !
> Si je mais un autre caractère que ':' la procedure marche !
> 
> Si quelqu'un à une idée, je le remercie