From: Martin Krischik <krischik@users.sourceforge.net>
Subject: Re: please help - access and inheritence
Date: Mon, 08 Dec 2003 20:17:18 +0100
Date: 2003-12-08T20:17:18+01:00 [thread overview]
Message-ID: <1415376.MNGkSUPfu3@linux1.krischik.com> (raw)
In-Reply-To: fc116fae.0312072046.1efbe825@posting.google.com
Mr. J. wrote:
I show you the verbose way of typing it:
> for I in Arr'range loop
> if(Has_Exceeded(Arr(2).all)) then
Process : declare
Current_Vehicle : Vehicle'Class renames Arr(I).all;
begin
if(Has_Exceeded(Current_Vehicle)) then
> Put_Line("Exceeded");
>
> end if;
end Process;
> end loop;
>
> end Q1;
In Ada dispaching is not done by writing "virtual" when declaring the
function but by using 'Class when calling the function.
With Regards
Martin
--
mailto://krischik@users.sourceforge.net
http://adacl.sourceforge.net
next prev parent reply other threads:[~2003-12-08 19:17 UTC|newest]
Thread overview: 10+ messages / expand[flat|nested] mbox.gz Atom feed top
2003-12-07 0:47 please help - access and inheritence Ratson Janiv
2003-12-07 7:14 ` tmoran
2003-12-07 18:44 ` Jeffrey Carter
2003-12-08 4:46 ` Mr. J.
2003-12-08 18:07 ` Jeffrey Carter
2003-12-08 19:05 ` Martin Krischik
2003-12-08 19:17 ` Martin Krischik [this message]
2003-12-08 18:50 ` Martin Krischik
2003-12-09 5:58 ` Mr. J.
2003-12-09 16:55 ` Martin Krischik
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox