Re: Convert wide_string to string (as the same byte array)

[Erich <john@peppermind.com>]

> You'll probably want something like this, for each Wide_Character,
> where S is the String and WS is the Wide_String:
<snip>

Thanks a lot! Seems to work fine.

 function To_String (WS : Wide_String) return String is
      S : String (1 .. WS'Length*2);
      J : Positive;
   begin
      J := 1;
      for I in WS'Range loop
         S (J)     := Character'Val (Wide_Character'Pos (WS (I)) /
256);
         S (J + 1) := Character'Val (Wide_Character'Pos (WS (I)) mod
256);
         J := J + 2;
      end loop;
      return S;
   end To_String;


Best,

Erich