Re: Experimenting with the OOP features in Ada

[Laurent <lutgenl@icloud.com>]

On Tuesday, 3 January 2017 13:49:53 UTC+1, Brian Drummond  wrote:
> On Mon, 02 Jan 2017 08:05:18 -0800, Laurent wrote:
> 
> > On Monday, 2 January 2017 15:44:57 UTC+1, Brian Drummond  wrote:
> > > 
> >> Test_Antibiotic := Base_Types.Antibiotics.Create_Code_SIL (
> >>                              This => Test_Antibiotic, Code_SIL => "Test
> >>                              Antibiotic 3")
> >> 
> >> Test_Antibiotic := Test_Antibiotic.Create_Code_SIL
> >>                             (Code_SIL => "Test Antibiotic 3");
> >> 
> >> but the preferred form would be
> >> 
> >> Test_Antibiotic.Set_Code_SIL (Code_SIL => "gen");
> >> 
> >> -- Brian
> >> > > 
> > Probably your versions does what I couldn't figure out. I declared Item
> > inside the function not as parameter.
> > But would that cause a constraint error?
> > > 
> If you try to access "Name" of an object that was created without a 
> "Name", yes it would. 
> 
> I didn't dig deep enough into your constructors to see if that was 
> genuinely the case or if they were created with some default, but the 
> constraint error was clear enough evidence for me. I find Ada very good 
> at catching mistakes early instead of burying them in non-obvious 
> behaviour.
> 
> -- Brian
> 
Yes transforming the functions to procedure solved this. No more constructors
for the components. Just one for the Object itself.

Thanks