From: "DuckE" <nospam_steved@pacifier.com>
Subject: Re: Type casting question
Date: 1999/12/20
Date: 1999-12-20T00:00:00+00:00 [thread overview]
Message-ID: <385ee7a9.0@news.pacifier.com> (raw)
In-Reply-To: 385E87D8.2B44B800@tridsys.com
Raju Vemulamanda <raju@tridsys.com> wrote in message
news:385E87D8.2B44B800@tridsys.com...
> Question: Could someone please provide some solution
> to the below?
>
> I have this question in the conversion of values
> between the string and the my own type shown below.
>
> type Bit_5 is range 2#0# .. 2#11111#;
> for Bit_5'Size use 5;
> subtype Size_Type is Bit_5;
>
> The above is how Size_Type has been declared.
>
> val1 : Jvmfr3_Field_Types.Size_Type := 10;
>
> Suppose I have a string xxx which has the some value in it,
> How can I convert that xxx into the above declared val1?
> I have to copy xxx into val1. I need to somehow do the
> type casting for the above.
Here's a complete example:
with Ada.Text_Io;
procedure Size_Demo is
package Text_Io renames Ada.Text_Io;
type Bit_5 is range 2#0# .. 2#11111#;
for Bit_5'Size use 5;
subtype Size_Type is Bit_5;
val1 : Size_Type;
input_string : String(1..10);
last_char : Natural;
begin
Text_Io.Put( "Enter Value => " );
Text_Io.Get_Line( input_string, last_char );
val1 := Size_Type'Value( input_string( 1 .. last_char ) );
Text_Io.Put_Line( "Value is: " & Size_Type'Image( val1 ) );
end Size_Demo;
next prev parent reply other threads:[~1999-12-20 0:00 UTC|newest]
Thread overview: 16+ messages / expand[flat|nested] mbox.gz Atom feed top
1999-12-20 0:00 Type casting question Raju Vemulamanda
1999-12-20 0:00 ` DuckE [this message]
1999-12-21 0:00 ` Robert Dewar
1999-12-21 0:00 ` Robert Dewar
1999-12-21 0:00 ` reason67
1999-12-21 0:00 ` Robert Dewar
1999-12-21 0:00 ` reason67
1999-12-22 0:00 ` Ted Dennison
1999-12-23 0:00 ` Robert Dewar
1999-12-23 0:00 ` reason67
1999-12-23 0:00 ` Robert Dewar
1999-12-23 0:00 ` reason67
1999-12-23 0:00 ` Robert Dewar
1999-12-23 0:00 ` Larry Kilgallen
1999-12-24 0:00 ` Robert Dewar
1999-12-21 0:00 ` David C. Hoos, Sr.
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox