This is an old revision of the document!


<source lang=“ada”>with Ada.Text_IO; with Ada.Text_IO.Unbounded_IO; with Ada.Strings.Unbounded; use Ada.Strings.Unbounded; with Ada.Containers.Vectors; use Ada.Containers;

procedure Quotes is

 package IO renames Ada.Text_IO;
 package SUIO renames Ada.Text_IO.Unbounded_IO;
 package Quote_Container is new Vectors (Natural, Unbounded_String);
 use Quote_Container;
 Quotes    : Vector;
 Input     : IO.File_Type;

begin

 IO.Open (File => Input,
          Mode => IO.In_File,
          Name => "quotes.txt");
 while not IO.End_Of_File (File => Input) loop
    Quotes.Append (New_Item => SUIO.Get_Line (File => Input));
 end loop;
 IO.Close (Input);
 IO.Put_Line (Item => "No. of quotes:" & Quotes.Length'Img);
 SUIO.Put_Line (Item => Quotes.First_Element);
 Quotes.Delete_First;
 IO.Put_Line (Item => "No. of quotes:" & Quotes.Length'Img);
 SUIO.Put_Line (Item => Quotes.First_Element);
 Quotes.Delete_First (Count => 5);
 IO.Put_Line (Item => "No. of quotes:" & Quotes.Length'Img);
 SUIO.Put_Line (Item => Quotes.First_Element);

end Quotes;</source>

Go back


Navigation