Re: how can i allocate an objekt with initialization???

[Stephen Leake <stephen_leake@acm.org>]

Thomas Bruns <newsgroup@donbruno.de> writes:

> Hello
> 
> i have a problem, with initialzie objekt with ada...
> 
> i want to do a new, to allocate the objekt... 

Here's a version of your code that compiles (except it is missing a
package body):

with ADA.FINALIZATION; use ADA.FINALIZATION;
package class_test_package is

 type FATHER_CLASS is new CONTROLLED with
  record
   INT1 : INTEGER;
  end record;

 type FATHER_CLASS_PTR is access all FATHER_CLASS'Class;

 function GETINT1 return INTEGER is abstract;

end class_test_package;

with class_test_package; use class_test_package;
package class_test_package_ableitung is

type CHILD_CLASS is new FATHER_CLASS with private;

type CHILD_CLASS_PTR is access CHILD_CLASS'CLASS;

function Factory (Int1, Int2 : in Integer) return Child_Class_Ptr;

private

 procedure Initialize (OBJECT : in out Child_CLASS);

 procedure Finalize  (OBJECT : in out CHILD_CLASS);

 procedure ADJUST (OBJECT : in out CHILD_CLASS);

 type CHILD_CLASS is new FATHER_CLASS with
  record
   INT2 : INTEGER;
  end record;

end class_test_package_ableitung;

with Class_Test_Package;
with Class_Test_Package_Ableitung;
procedure Main is

TEST : Class_Test_Package.FATHER_CLASS_PTR;

begin
 TEST := Class_Test_Package.FATHER_CLASS_PTR
    (Class_Test_Package_Ableitung.Factory (INT1 => 1, Int2 => 2));

end Main;


Your problem was that Child_Class is a private type; you cannot create
an aggregate for it. The body of Factory can use an aggregate.

Hope this helps.

-- 
-- Stephe