From: shoko2004@hotmail.com (shoko)
Subject: oo programing help needed?
Date: 6 Dec 2003 02:21:46 -0800
Date: 2003-12-06T02:21:46-08:00 [thread overview]
Message-ID: <4948f537.0312060221.6edfa391@posting.google.com> (raw)
i have the following:
------------------------------------------
package one is
type one is tagged private;
type one_ptr is access all one'class;
procedure set_name(name:String;this:in out one);
function get_name(this:one) return string;
private
type one is tagged
record
name:String(1..256);
end record;
end one ;
---------------------------------------------
with one;
package two is
type two is new one.one with private ;
private
type two is new one.one with null record;
end two;
---------------------------------------------
with two;
package three is
type three is new two.two with private ;
function get_name(this:three) return string;
private
type three is new two.two with null record;
end two;
-------------------------------------------
package body three is
function get_name(this:three) return string
s:string(1..10);
begin
return s+ this.name; <-- no selector "name" for type three
end get_name;
end three;
i get no selector "name" for type three
how to solve this problem??????
next reply other threads:[~2003-12-06 10:21 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2003-12-06 10:21 shoko [this message]
2003-12-06 12:23 ` oo programing help needed? Georg Bauhaus
2003-12-06 14:11 ` Stephen Leake
2003-12-06 15:50 ` Steve
2003-12-06 13:46 ` Martin Krischik
2003-12-07 2:42 ` Jeffrey Carter
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox