TEAM-ADA Archives

Team Ada: Ada Programming Language Advocacy


Options: Use Classic View

Use Monospaced Font
Show Text Part by Default
Condense Mail Headers

Topic: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Sender: "Team Ada: Ada Advocacy Issues (83 & 95)" <[log in to unmask]>
From: Tucker Taft <[log in to unmask]>
Date: Wed, 7 Jan 1998 17:46:04 -0500
Reply-To: Tucker Taft <[log in to unmask]>
Parts/Attachments: text/plain (18 lines)
> I am racking my brains trying to figure out how to have a hetergenous
> array of tagged type data.  I have numerous packages all of which have
> a Data type inherited from one another.  I would like to declare an
> array who components can point to different "Data" type objects.
> Any help?
> BTW:  The source code would be too volumous to post here.

Isn't this simply:

    type Data_Ptr is access all Data'Class;
    type Data_Ptr_Array is array(Positive range <>) of Data_Ptr;

> Chris Sparks

-Tucker Taft   [log in to unmask]