Re: How to get this space away?

["Jeffrey R. Carter" <spam.jrcarter.not@spam.not.acm.org>]

On 06/02/2015 01:32 PM, Laurent wrote:
> 
> rtAST-N237|rr 12345678|t1 1|o1strpne|ra|a1am|a3<=2|a4+| 
>                      ^-------------^
> The function which generates this string:
> 
>    --------------
>    -- To_BCI --
>    --------------
>    function To_BCI (Item : Carte) return V_String.Bounded_String is
>       V_Antibiotiques : V_String.Bounded_String;
>       V_Carte         : V_String.Bounded_String;
>       V_Germe         : V_String.Bounded_String;
>       use V_String;
>    begin
> 
> -- generates the |rr 12345678 par; Lot is a Positive
>       V_Carte := ((+"|ta|rt") & (+Item.Code_SIL) & (+"|rr") & (+Item.Lot'Img)); 

'Img is GNAT-specific attribute that is equivalent for T'Image (Object), where T
is the type of Object. Since you say Lot is a Positive, that means Item.Lot'Img
is equivalent to Integer'Image (Item.Lot). 'Image always adds a leading space
for a non-negative value. Nobody seems to like it, but the ARG won't change it.

You can get rid of the space yourself, or you could use something like
PragmARC.Images that gives you control over width, base, and zero filling.

The PragmAda Reusable Components are available from

https://pragmada.x10hosting.com/pragmarc.htm

-- 
Jeff Carter
"Frankie Wolf, wanted by Federal authorities for
dancing with a mailman."
Take the Money and Run
143