Re: [newbie] Need som feedback on code snip

["Robert I. Eachus" <eachus@mitre.org>]

  Can I take this one?  Can I?  Can I please... ;-)

Preben Randhol wrote:
  
> I wondered if somebody could take a peep at the code snip below and
> comment on it.

  It works way too hard to do something which is very simple...

> It works, but is is the Right Way to do it or is there
> a smarter way.

-- Just a small test to see how I can change the content of a string
-- variable when I do not know the length of the new or old text.

with Text_IO; use Text_IO;
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
 
procedure My_Test is
   Text :  Unbounded_String := To_Unbounded_String("Hello world!");
begin
   Put_Line(To_String(Text));
   Text := To_Unbounded_String("Hello yourself!");
   Put_Line(To_String(Text));
end My_Test;

   Unbounded strings do for you all that ugly pointer and memory
allocation and reclamation stuff that you have to worry about in C. 
And,
if you are using GNAT, there is a package Ada.Strings.Unbounded.Text_IO,
that makes it still easier:

with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
with Ada.Strings.Unbounded.Text_IO; use Ada.Strings.Unbounded.Text_IO;
procedure Test2 is
   Text: Unbounded_String := To_Unbounded_String("Hello world!");
begin
   Put_Line(Text);
   Text := To_Unbounded_String("Hello yourself!");
   Put_Line(Text);
end Test2;
 
-- 

                                        Robert I. Eachus

with Standard_Disclaimer;
use  Standard_Disclaimer;
function Message (Text: in Clever_Ideas) return Better_Ideas is...