Re: Problems with Ada.Text_IO and strings.

[sk <noname@myob.com>]

Bleakcabal <bleakcabal@gdnmail.net>:
 > It would have been great if Ada strings read the end of line
 > character and Put took care of them so the lines were
 > automagicly sliced like C strings.

declare

     Buffer  : String (1 .. Max_Buffer) := (Others => ' ');
     BufLast : Natural := 0;

begin
     TIO.Get_Line (Buffer, BufLast);
     TIO.Put_Line (Buffer(Buffer'First .. BufLast));
end;


-- 
-------------------------------------------------
-- Merge vertically for real address
--
--     s n p @ t . o
--      k i e k c c m
-------------------------------------------------