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=3.8 required=5.0 tests=BAYES_00,INVALID_MSGID,
	RATWARE_MS_HASH,RATWARE_OUTLOOK_NONAME autolearn=no autolearn_force=no
	version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,691bbbf0ab0cc67e
X-Google-Attributes: gid103376,public
From: "Nick Roberts" <Nick.Roberts@dial.pipex.com>
Subject: Re: [Q] Returning Strings From A Function
Date: 1997/04/06
Message-ID: <01bc42af$e32e3ea0$90f482c1@xhv46.dial.pipex.com>#1/1
X-Deja-AN: 231110602
References: <33454165.1658515@news.demon.co.uk>
 <33468b81.762963@news.demon.co.uk> <dewar.860265459@merv>
 <33478738.2129057@news.demon.co.uk> <dewar.860338656@merv>
Organization: UUNet PIPEX server (post doesn't reflect views of UUNet PIPEX)
Newsgroups: comp.lang.ada
Date: 1997-04-06T00:00:00+00:00
List-Id: <comp.lang.ada>




John, did you see my previous post on this subject? In case not, have a
quick butcher's at the following.


declare
   subtype Filename_Index is Integer range 1..12;
   type Filename_String is array (Filename_Index range <>) of Character;
   ...
   FS: Filename_String := ""; -- unconstrained type, so must be initialised
   SS: String := "";
   ...
begin
   ...
   FS := Text_IO.Name(F); -- constraint error raised if longer than 12
   ...
   SS := "Name is: "+Filename_String(FS); -- note the need to convert
   ...
end;


Hopefully this gives you the flavour of it.

Nick.