Re: Classwide Container

[Dale Stanbrough <dale@goanna.cs.rmit.edu.au>]

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