From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on
	ip-172-31-65-14.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=0.0 required=3.0 tests=BAYES_40,FREEMAIL_FROM
	autolearn=ham autolearn_force=no version=3.4.6
X-Received: by 2002:a05:620a:d87:b0:67b:311c:ecbd with SMTP id q7-20020a05620a0d8700b0067b311cecbdmr16219168qkl.146.1651676741618;
        Wed, 04 May 2022 08:05:41 -0700 (PDT)
X-Received: by 2002:a81:2185:0:b0:2f1:de50:5ecb with SMTP id
 h127-20020a812185000000b002f1de505ecbmr20114118ywh.40.1651676741439; Wed, 04
 May 2022 08:05:41 -0700 (PDT)
Path: eternal-september.org!reader02.eternal-september.org!border1.nntp.dca1.giganews.com!nntp.giganews.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Wed, 4 May 2022 08:05:41 -0700 (PDT)
In-Reply-To: <0b4ddd38-1f19-44fe-acd9-43a316ec9d29n@googlegroups.com>
Injection-Info: google-groups.googlegroups.com; posting-host=94.31.102.23; posting-account=rmHyLAoAAADSQmMWJF0a_815Fdd96RDf
NNTP-Posting-Host: 94.31.102.23
References: <0b4ddd38-1f19-44fe-acd9-43a316ec9d29n@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <14625dae-5f76-4afb-abe5-32ca583df202n@googlegroups.com>
Subject: Re: Discriminants or Constructor Function for Limited Types
From: AdaMagica <christ-usch.grein@t-online.de>
Injection-Date: Wed, 04 May 2022 15:05:41 +0000
Content-Type: text/plain; charset="UTF-8"
Xref: reader02.eternal-september.org comp.lang.ada:63811
List-Id: <comp.lang.ada>

There are further ways (from Ada 83 on):

Like any record type, you can initialize a limited record by giving default values for all components:
type LRT is limited record
  Component: Some_Type := Default;
end record;

You can define an Initialize procedure:

type LT is limited private;
procedure Initialize (Obj: out LT);