From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: ***
X-Spam-Status: No, score=3.8 required=5.0 tests=BAYES_00,INVALID_MSGID,
	RATWARE_MS_HASH,RATWARE_OUTLOOK_NONAME autolearn=no autolearn_force=no
	version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,22b2c05a8088bbb2
X-Google-Attributes: gid103376,public
From: "Pascal Obry" <pascal.obry@der.edfgdf.fr>
Subject: Re: Leading zeros with Int_IO.Put()?  Or another package?
Date: 1996/11/07
Message-ID: <01bbcc8a$dfae35f0$262a6282@cln49ae>#1/1
X-Deja-AN: 195042654
references: <baldwinE0Eq2n.KLB@netcom.com> <3281088B.24F@watson.ibm.com>
content-type: text/plain; charset=ISO-8859-1
organization: EDF - Direction des Etudes et Recherches
mime-version: 1.0
newsgroups: comp.lang.ada
Date: 1996-11-07T00:00:00+00:00
List-Id: <comp.lang.ada>





Norman H. Cohen <ncohen@watson.ibm.com> a =E9crit dans l'article =
<3281088B.24F@watson.ibm.com>...
>=20
>    declare
>       Image  : constant String :=3D Minute'Image;
                                                 ^^^^^^^^^^^^^^^^
It should be :  Image : constant String :=3D Integer'Image (Minute);

Well I don't know the type of Minute, so I have assumed that it is an =
Integer.

>       Buffer : String (1 .. Field_Length);  -- 2 in the case of =
minutes
>    begin
>       Ada.Strings.Fixed.Move
>          (Source  =3D> Image (2 .. Image'Length),
>           Target  =3D> Buffer,=20
>           Justify =3D> Right,=20
>           Pad     =3D> '0');
>       Ada.Text_IO.Put (Buffer);
>    end;
>=20
> --=20
> Norman H. Cohen
> mailto:ncohen@watson.ibm.com
> http://www.research.ibm.com/people/n/ncohen
>=20

--=20

--|------------------------------------------------------------
--| Pascal Obry                               Team-Ada Member |
--|                                                           |
--| EDF-DER-IPN-SID- Ing=E9nierie des Syst=E8mes d'Informations   |
--|                                                           |
--| Bureau G1-010           e-mail: pascal.obry@der.edfgdf.fr |
--| 1 Av G=E9n=E9ral de Gaulle  voice : +33-1-47.65.50.91         |
--| 92141 Clamart CEDEX     fax   : +33-1-47.65.50.07         |
--| FRANCE                                                    |
--|------------------------------------------------------------
--|
--|   http://ourworld.compuserve.com/homepages/pascal_obry
--|
--|   "The best way to travel is by means of imagination"