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.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,823a848589d002c9
X-Google-Attributes: gid103376,public
From: Dale Stanbrough <dale@goanna.cs.rmit.edu.au>
Subject: Re: Classwide Container
Date: 1998/06/08
Message-ID: <6lhnis$222$1@goanna.cs.rmit.edu.au>#1/1
X-Deja-AN: 360816481
Distribution: world
Content-Transfer-Encoding: 8bit
References: <357BFD07.37A379C3@gbr.msd.ray.com>
Content-Type: text/plain; charset=ISO-8859-1
X-XXMessage-ID: <B1A29EE75F021B17@obibicut.cs.rmit.edu.au>
Organization: RMIT
Mime-Version: 1.0
Newsgroups: comp.lang.ada
Date: 1998-06-08T00:00:00+00:00
List-Id: <comp.lang.ada>


Yves Malette writes...

"I am having trouble creating an array of  classes....."


	type Object is tagged null record;
	
	type Object_Ptr is access all Object'class;
	
	
	procedure Dispatch (Item : Object);
	
	
	type Object_Class_Array is array (Integer range <>) of Object_Ptr;
	
	
	
	type A is new Object with null record;
	
	procedure Dispatch (Item : A);
	
	etc.
	
	
	...
	   List : Object_Class_Array (1..3);
		
	begin
	   List (1) := new Object;
	   List (2) := new A;
	   List (3) := new B;
	   
	   
	   for i in List'range loop
	      Dispatch (List (i).all);
	   end loop;
	end;


Hope this helps...

Dale