incrementing characters

incrementing characters

[Jamie]

Hi,

I'm new to Ada and would like a small problem solved if possible,

how can I increment the value of a character? If you know what I mean - if
character FIRST has the value 'A' how can I increment it so that its value
is now 'B' ?

I'm looking to do something like this,

character := character + offset

where offset is a constant integer.

Can anyone help???????

Cheers,

Jamie.

j.couston@virgin.net

Re: incrementing characters

[Dmitriy Anisimkov]

Jamie wrote:
> how can I increment the value of a character?

Char := Character'Succ(Char); -- next value
Char := Character'Pred(Char); -- previous value
Char := Character'Val(Character'Pos(Char)+offset); -- integer offset

Re: incrementing characters

[Pascal MALAISE]

Jamie wrote:
 
> character := character + offset
function UPPER_CHAR (CHAR : CHARACTER) return CHARACTER is
  OFFSET  : constant INTEGER   := CHARACTER'POS('A') -
CHARACTER'POS('a');
begin

  if CHAR in 'a' .. 'z' then
-- This is what you are looking for?
    return CHARACTER'VAL( CHARACTER'POS(CHAR) + OFFSET );
  else
    return CHAR;
  end if;
end UPPER_CHAR;


-- 
Pascal MALAISE		| E-mail:
22 Avenue de CHOISY	|  (priv) malaise@magic.fr
75013 PARIS		|  (prof) malaise@fr.airsysatm.thomson-csf.com
FRANCE