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=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Received: by 10.66.246.193 with SMTP id xy1mr38687132pac.44.1433277162966;
        Tue, 02 Jun 2015 13:32:42 -0700 (PDT)
X-Received: by 10.140.102.66 with SMTP id v60mr152841qge.19.1433277162685;
 Tue, 02 Jun 2015 13:32:42 -0700 (PDT)
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!feeder.eternal-september.org!news.glorb.com!h15no2203753igd.0!news-out.google.com!4ni155qgh.1!nntp.google.com!j5no37669qga.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Tue, 2 Jun 2015 13:32:42 -0700 (PDT)
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=83.99.95.161;
 posting-account=sDyr7QoAAAA7hiaifqt-gaKY2K7OZ8RQ
NNTP-Posting-Host: 83.99.95.161
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <bb2c2d5e-bd38-4598-ace9-1607a5bbf2cd@googlegroups.com>
Subject: How to get this space away?
From: Laurent <daemon2@internet.lu>
Injection-Date: Tue, 02 Jun 2015 20:32:42 +0000
Content-Type: text/plain; charset=ISO-8859-1
Xref: news.eternal-september.org comp.lang.ada:26138
Date: 2015-06-02T13:32:42-07:00
List-Id: <comp.lang.ada>

Hi

My little program is slowly generating something which looks like the communication file I need.

The only problem is that if the values I use are of the type integer I get a leading space I don't want/need. I have no idea where it comes from or how to get rid of it in this case.

Standart Integer_IO would be Width=>0 and problem solved but here?

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)); 

-- generates the |t1 1|o1strpne part
      V_Germe := Germes.IO.To_BCI (Item.Germe); 
      V_String.Append(Source => V_Carte,New_Item => V_Germe);

      for Counter in 1 .. Item.Anti_Counter loop
         V_Antibiotiques := Antibiotiques.IO.To_BCI (Item.Antibiotiques (Counter));
         V_String.Append (Source   => V_Carte, New_Item => V_Antibiotiques);
      end loop;
      return V_Carte;
   end To_BCI;

Thanks

Laurent