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.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	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: john@assen.demon.co.uk (John McCabe)
Subject: Re: [Q] Returning Strings From A Function
Date: 1997/04/05
Message-ID: <33468b81.762963@news.demon.co.uk>#1/1
X-Deja-AN: 230943599
X-NNTP-Posting-Host: assen.demon.co.uk
References: <33454165.1658515@news.demon.co.uk>
Newsgroups: comp.lang.ada
Date: 1997-04-05T00:00:00+00:00
List-Id: <comp.lang.ada>


Hello all,

To everyone who responded thank you. You have put my mind straight.

I was aware that the method everyone described i.e.

declare
   File_Name : constant string := Text_IO.Name (File);
being
   :
   :
end;

would be a solution, but I felt sure there was another way to do it so
that I could declare File_Name as an object of a string type e.g.:

type File_Name_Type is new String (1..12);

then use:-

procedure ...

   File_Name : File_Name_Type;

begin
   :
   File_Name := Text_IO.Name (File);
   :
end...

or something similar. But unfortunately this is obviously not
possible.

Thanks again anyway.


Best Regards
John McCabe <john@assen.demon.co.uk>