comp.lang.ada
 help / color / mirror / Atom feed
From: Mark & Zurima McKinney <mckmark@us.net>
Subject: Re: [Q] Returning Strings From A Function
Date: 1997/04/05
Date: 1997-04-05T00:00:00+00:00	[thread overview]
Message-ID: <33474626.4BA3@us.net> (raw)
In-Reply-To: 19970405130401.IAA25121@ladder01.news.aol.com


johnherro@aol.com wrote:
> 
> procedure Set(Target: out String;
>               Target_Len: out Natural;
>               Source: in String) is
> begin
>    Target_Len := Source'Length;
>    Target(1 .. Source'Length) := Source;


maybe Target(Target'First .. Target'First + Source'Length -1);


> end Set;
> 


Mark McKinney




  parent reply	other threads:[~1997-04-05  0:00 UTC|newest]

Thread overview: 24+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
1997-04-04  0:00 [Q] Returning Strings From A Function John McCabe
1997-04-04  0:00 ` Joakim Olsson
1997-04-05  0:00 ` John McCabe
1997-04-05  0:00   ` Robert Dewar
1997-04-06  0:00     ` John McCabe
1997-04-06  0:00       ` Robert Dewar
1997-04-06  0:00         ` Nick Roberts
1997-04-07  0:00           ` Robert A Duff
1997-04-08  0:00             ` Nick Roberts
1997-04-07  0:00               ` Matthew Heaney
1997-04-06  0:00       ` Matthew Heaney
1997-04-05  0:00   ` Robert A Duff
1997-04-05  0:00 ` johnherro
1997-04-05  0:00   ` Robert Dewar
1997-04-06  0:00     ` John McCabe
1997-04-06  0:00       ` Robert Dewar
1997-04-05  0:00   ` Mark & Zurima McKinney [this message]
1997-04-07  0:00     ` Jon S Anthony
1997-04-07  0:00       ` johnherro
1997-04-07  0:00     ` johnherro
1997-04-07  0:00       ` Robert Dewar
1997-04-08  0:00     ` Jeff Carter
1997-04-09  0:00     ` Looking for an Ada SCIENTIFIC UNITS checking package Ron House
1997-04-06  0:00 ` [Q] Returning Strings From A Function John McCabe
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox