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,2f63c66b1f04412d
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-11-19 05:26:21 PST
From: "Rodrigo Garcia" <rodrigo.garcia@epfl.ch>
Newsgroups: comp.lang.ada
References: <BBDEBC6C.902D%office@anobject.net>
 <bpdm15$1o7hc7$1@ID-25716.news.uni-berlin.de>
Subject: Re: How to define an array of a variant record type?
Date: Wed, 19 Nov 2003 14:26:13 +0100
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
X-MIMEOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
NNTP-Posting-Host: lglpc31.epfl.ch
Message-ID: <3fbb6f7a$1@epflnews.epfl.ch>
X-Trace: epflnews.epfl.ch 1069248378 128.178.76.8 (19 Nov 2003 14:26:18 +0200)
Organization: EPFL
Path: 
 archiver1.google.com!news2.google.com!news.maxwell.syr.edu!irazu.switch.ch!news-zh.switch.ch!switch.ch!epflnews.epfl.ch!not-for-mail
Xref: archiver1.google.com comp.lang.ada:2673
Date: 2003-11-19T14:26:13+01:00
List-Id: <comp.lang.ada>

> So, to summarise the various answers to this question, you could use
> indirection or default discriminants.

There is a third possibility. Use tagged types instead of variant records
and... welcome to the wonderful world of OO programming in Ada  ;^)

Rodrigo