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 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,37c1f61bd0b7914
X-Google-Attributes: gid103376,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news3.google.com!news.germany.com!newsfeed.utanet.at!newsfeed01.chello.at!newsfeed.arcor.de!newsspool1.arcor-online.net!news.arcor.de.POSTED!not-for-mail
Newsgroups: comp.lang.ada
Subject: Re: Converting Type Characters to type string
From: Georg Bauhaus <rm.plus-bug.tsoh@maps.futureapps.de>
In-Reply-To: 
 <f1d8e1ab-b79b-4705-9093-82f75a5dc643@k13g2000hse.googlegroups.com>
	 <45128c93-6001-47bd-9feb-d82ac04a5515@k13g2000hse.googlegroups.com>
	 <47EFF5DF.401@obry.net>
	 <f1d8e1ab-b79b-4705-9093-82f75a5dc643@k13g2000hse.googlegroups.com>
Content-Type: text/plain
Content-Transfer-Encoding: 7bit
Message-Id: <1206913712.22025.8.camel@K72>
Mime-Version: 1.0
X-Mailer: Evolution 2.12.1 
Date: Sun, 30 Mar 2008 23:48:32 +0200
Organization: Arcor
NNTP-Posting-Date: 30 Mar 2008 23:48:32 CEST
NNTP-Posting-Host: 17913ff2.newsspool4.arcor-online.net
X-Trace: 
 DXC=d`9?Db74`H2RLigj];iP=84IUK<Cl32<14Fo<]lROoR1^;5]aA^R6>2<ZC9ZoC5PC1PCY\c7>ejV8P3i]AANdTb1OMTMZ=OAXa3
X-Complaints-To: usenet-abuse@arcor.de
Xref: g2news1.google.com comp.lang.ada:20658
Date: 2008-03-30T23:48:32+02:00
List-Id: <comp.lang.ada>


On Sun, 2008-03-30 at 14:08 -0700, jedivaughn wrote:
> number 1 thank you so much for the fast response. But when I try your
> suggestion and use say "1234" for the input I get the number 1, a few
> spaces, and then some smiley faces. not exactly what I was hoping
> for :) .  Here's my code if that's any help.

Do I understand correctly that you want "1234" to be 4 integers?
In that case there is a loop missing.

> with ada.text_IO, ada.integer_text_IO;
> 
> procedure integers is
> 
> index : natural :=0;
> char : character;
> str : string (1..10);

str : string (1..10) := (1..10 => '*');  -- to see the effect

> begin
> 
>     ada.text_IO.put("Please enter a few Integers ");
>     ada.text_IO.get(char);
> 
>     Index := Index + 1;
>     Str(Index) := Char;
>     ada.text_IO.put(str);
> 
> end integers;
> 
> 
> 
> Once again thanks so much for your help
> - John