RE: Strings

["Beard, Frank" <beardf@spawar.navy.mil>]

Jef,

>    I just want a usable string. How would I change the above code to do
> this? And could someone please point me to a site that gives actual,
> concrete examples of simple string use?

While Ada.Strings.Bounded has some useful features, it goes a little beyond
"simple" strings.

Is what you are really looking for:

Option 1)

with Ada.Text_IO;

procedure My_Strings is

    -- Anonymous string fixed at 9 characters
    a1 : string := "Some Text";

begin
    Ada.Text_IO.Put(a1);
    Ada.Text_IO.New_Line;  -- Ada.Text_Io.Put_Line(a1) ~ Put and New_Line.

end My_Strings;


Or Option 2)

with Ada.Text_IO;

procedure My_Strings is

    -- Anonymous string fixed at 80 characters
    a1 : string (1..80) := "Some Text" & (10 .. 80 => ' ');

begin
    Ada.Text_IO.Put_Line(a1);

end My_Strings;

Or Option 3)

with Ada.Text_IO;

procedure My_Strings is

    -- Subtype of string fixed as 80 characters
    subtype Bounded_80 is string (1..80);

    a1 : Bounded_80 := "Some Text" & (10 .. 80 => ' ');

begin
    Ada.Text_IO.Put_Line(a1);

end My_Strings;

Frank