Visibility and Elaboration

[And838N@netscape.net]

David,

Ohhhhhhhhhhhhh...

Your talking about:

procedure x is
   astring: unbounded_string := "hello world";
   somenumber: integer := 0;
begin
   somenumber := count(astring, to_set(' '));
   put(somenumber);
end x;


When I am talking about:

procedure visibilitytest is
         astring: string := "hello world";
         somenumber: integer;
begin
         put_line(astring);
         somenumber := count(to_unbounded_string(astring), to_set(' 
'));
         put_line(Integer'image(somenumber));
end visibilitytest;


After I posted procedure x I added put_line(astring) instead of put
(somenumber) and reposted it.  I looked it up later and found procedure 
visibility test but not procedure x.  Anyway...
You have my sincere and public appologies for being rude and, with 
procedure x, I would not need ada.text_io.

Andrew




__________________________________________________________________
McAfee VirusScan Online from the Netscape Network.
Comprehensive protection for your entire computer. Get your free trial today!
http://channels.netscape.com/ns/computing/mcafee/index.jsp?promo=393397

Get AOL Instant Messenger 5.1 free of charge.  Download Now!
http://aim.aol.com/aimnew/Aim/register.adp?promo=380455