From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,68f91dde523dad6c
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news3.google.com!news.glorb.com!news.zanker.org!newsfeed00.sul.t-online.de!t-online.de!news-lei1.dfn.de!news.uni-jena.de!not-for-mail
From: Adrian Knoth <adi@thur.de>
Newsgroups: comp.lang.ada
Subject: Re: Input a string (again)
Date: 29 Jan 2005 09:53:04 GMT
Organization: loris.TV
Message-ID: <slrncvmn80.98o.adi@ppc201.mipool.uni-jena.de>
References: <36119gF4r0h1aU2@individual.net>
NNTP-Posting-Host: ppc201.mipool.uni-jena.de
X-Trace: fsuj29.rz.uni-jena.de 1106992384 1305 141.35.13.101 (29 Jan 2005
 09:53:04 GMT)
X-Complaints-To: news@rz.uni-jena.de
NNTP-Posting-Date: 29 Jan 2005 09:53:04 GMT
User-Agent: slrn/0.9.8.1 (Debian)
Xref: g2news1.google.com comp.lang.ada:8061
Date: 2005-01-29T09:53:04+00:00
List-Id: <comp.lang.ada>

Stefan Merwitz <thebiggestfan2002@yahoo.de> wrote:

Hi!

>      function InputString return string is
>          sString: String(1..30); -- constrained

Why don't you use an unbounded string?

> All I want is to cancel that loop when nothing is entered, help!

with Ustrings; use Ustrings;
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;

procedure bla is
   HobbyString : Ustring;
begin
   loop
      Get_Line (HobbyString);
      exit when Empty (HobbyString);
      Put_Line (HobbyString);
   end loop;
end bla;

The ustrings-package was written by David A. Wheeler. You can find it
in the adabill-sourcepackage on my homepage (http://adi.thur.de)      
   
If you don't want to use ustrings you may rewrite your program like this:

  function InputString return String is
     buffer : String (1 .. 30);
     iLength : Positive;
  begin
     Get_Line (buffer, iLength)
     return buffer (buffer'First .. iLength);
  end InputString;

begin
   loop
      declare
         something : String := InputString;
      begin
         exit when something = "";
         Put_Line (something);
      end;
   end loop;
end everything;


-- 
mail: adi@thur.de  	http://adi.thur.de	PGP: v2-key via keyserver

Alle Kinder stehen am Abgrund, nur nicht Peter, der ging noch'n Meter.