Re: newbie - OOP in Ada Set and Get Methods

[Martin Krischik <martin@krischik.com>]

R wrote:

> my compiler gnatmake Linux
> gave me warnings in this function:
> 
> function Set(this: rec1; s: Integer) return Integer is
> begin
> this.field := s;
> return s;
> end Set;
> 
> 'in parameters cannot be modified inside function'(sth like this),
> when I was using rec1_Typeas an access to rec1
> this warning never occured

Declare it "in out" if you want to make changes:

function Set(this: in out rec1; s: Integer) return Integer is


> but finally i changed it to:
> procedure Set(this: in out rec1; s: Integer) is
> begin
> this.field := s;
> end Set;
> and now it works fine - no warning
> 
> best regards R

Martin

-- 
mailto://krischik@users.sourceforge.net
http://www.ada.krischik.com