comp.lang.ada
 help / color / mirror / Atom feed
From: "DuckE" <nospam_steved@pacifier.com>
Subject: Re: Character/Integer Conversion
Date: 2000/04/02
Date: 2000-04-02T00:00:00+00:00	[thread overview]
Message-ID: <38e7fa49.0@news.pacifier.com> (raw)
In-Reply-To: 8c3a6e$q5p$1@nnrp1.deja.com

My answer is an example:

function CkSum( msg : String ) return integer is
  result : integer := 0;
begin
  for ii in msg'range loop
    result := result + character'pos( msg( ii ) );
  end loop;
end CkSum;

I hope this helps,

SteveD

<ebresie@usa.net> wrote in message news:8c3a6e$q5p$1@nnrp1.deja.com...
> I am sure this is a simple thing, but I am doing the following...
>
> I need to create a string of character which will be sent to a scsi
> interface.
>
> I need to convert from a character into a integer so that I can make a
> checksum.
>
> I am giving a basic code version...not verbatum
>
> msg : string(1..length);
>
> msg(1) := '~';  -- how do I get the asci value for this character?
> msg(2)  := 33;
> msg(3)   : msg(1)'value + msg(2)'value;
>
> this should more or less add the ascii value of the first character with
> the value of the second.
>
> Any help would be appreciated.
>
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.






  reply	other threads:[~2000-04-02  0:00 UTC|newest]

Thread overview: 9+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2000-03-31  0:00 Character/Integer Conversion ebresie
2000-04-02  0:00 ` DuckE [this message]
2000-04-03  0:00 ` David
2000-04-03  0:00   ` Robert Dewar
2000-04-04  0:00     ` Robert A Duff
2000-04-05  0:00       ` Robert Dewar
2000-04-03  0:00   ` Robert Dewar
2000-04-04  0:00     ` Mats Weber
2000-04-05  0:00       ` Robert Dewar
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox