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-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,ec4a7355f321a22b
X-Google-Attributes: gid103376,public
Path: 
 controlnews3.google.com!news1.google.com!news.glorb.com!newsfeed.stueberl.de!newsr1.ipcore.viaginterkom.de!news-peer1!btnet-feed5!btnet!news.btopenworld.com!not-for-mail
From: "Martin Dowie" <martin.dowie@btopenworld.com>
Newsgroups: comp.lang.ada
Subject: Re: Task discriminants
Date: Sat, 22 May 2004 07:54:42 +0000 (UTC)
Organization: BT Openworld
Message-ID: <c8n102$i2b$1@titan.btinternet.com>
References: <40ACC50E.9040406@mail.usyd.edu.au>
 <3191556.otblUWQ27X@linux1.krischik.com> <gtqdnTKDieX9rzPdRVn-vw@comcast.com>
NNTP-Posting-Host: host81-152-56-112.range81-152.btcentralplus.com
X-Trace: titan.btinternet.com 1085212482 18507 81.152.56.112 (22 May 2004
 07:54:42 GMT)
X-Complaints-To: news-complaints@lists.btinternet.com
NNTP-Posting-Date: Sat, 22 May 2004 07:54:42 +0000 (UTC)
X-Newsreader: Microsoft Outlook Express 6.00.2800.1409
X-MSMail-Priority: Normal
X-Priority: 3
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1409
Xref: controlnews3.google.com comp.lang.ada:767
Date: 2004-05-22T07:54:42+00:00
List-Id: <comp.lang.ada>

"Robert I. Eachus" <rieachus@comcast.net> wrote in message
news:gtqdnTKDieX9rzPdRVn-vw@comcast.com...
> for I in 1..Max loop
>    Result(I) := new Task_Type(I);
> end loop;

Slightly better (IMHO)

for I in Result'Range loop
   Result(I) := new Task_Type(I);
end loop;