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=-0.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!feeder.eternal-september.org!news.swapon.de!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail
From: Mart van de Wege <mvdwege@gmail.com>
Newsgroups: comp.lang.ada
Subject: Re: Substrings as argument to procedures/functions
Date: Wed, 13 Apr 2016 15:19:19 +0200
Message-ID: <86wpo1prxk.fsf@gaheris.avalon.lan>
References: <2055a188-fb5f-496a-ab37-b25d81cebe1b@googlegroups.com>
	<neidi7$j9o$1@gioia.aioe.org>
	<b418f784-0626-49f8-82bb-7dbab07abd62@googlegroups.com>
	<nejf8s$k0e$1@gioia.aioe.org>
	<5271bc70-bfea-4e2f-b4e3-6c847843f5b4@googlegroups.com>
	<nel697$ua5$1@dont-email.me>
	<9c28eac4-8edf-45dc-afcd-082abfd4cf4b@googlegroups.com>
	<1460548465.940.5.camel@obry.net> <861t69r8r9.fsf@gaheris.avalon.lan>
	<8d30aa28-80f3-4a4a-8577-22593e71736a@googlegroups.com>
Mime-Version: 1.0
Content-Type: text/plain
X-Trace: individual.net GH5EC5ErnT3LAaV6VEJh9wFyGspsl0eFQHbu0jJiL3GEyv0i27
X-Orig-Path: gaheris.avalon.lan!not-for-mail
Cancel-Lock: sha1:BHwqB5KRxxLC9g2oFVVryDFEIb8=
 sha1:S1lphVzi8gcyrqkrwCpEgrU+bbo=
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.5 (gnu/linux)
Xref: news.eternal-september.org comp.lang.ada:30097
Date: 2016-04-13T15:19:19+02:00
List-Id: <comp.lang.ada>

Egil H H <ehh.public@gmail.com> writes:

> On Wednesday, April 13, 2016 at 2:42:04 PM UTC+2, Mart van de Wege wrote:
>> I do have a minor question here though: That does not work if you have
>> any reason to try and modify the first character of a String. S(1) :=
>> To_Upper(S(1)) works, but S'First := To_Upper(S'First) does not.
>> 
>> So how do I handle that particular case?
>
> S(S'First) := To_Upper(S(S'First));

D'uh. Imagine me slapping my hand against my forehead right now.

-- 
"We will need a longer wall when the revolution comes."
    --- AJS, quoting an uncertain source.