Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- with Ada.Text_IO; use Ada.Text_IO;
- with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
- with Ada.Float_Text_IO; use Ada.Float_Text_IO;
- package body Stringhandling is
- procedure Get (Text : out String_Type) is
- begin
- for I in 1..256 loop
- Get(Text.Char_Array(I));
- Text.Length:=I;
- if End_Of_Line = True then
- exit;
- end if;
- end loop;
- end get;
- ----------------------------------------------------------------------------------------------
- procedure Put (Text : in String_Type) is
- begin
- for I in 1..Text.Length loop
- Put(Text.Char_Array(I));
- end loop;
- end put;
- end Stringhandling;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement