Re: newbie - OOP in Ada Set and Get Methods

[Martin Krischik <martin@krischik.com>]

R wrote:

> Hello.
> 
> I'm new to Ada95. I was trying to create on 'object' in Ada with Set
> and Get methods.
> 
> But I failed...
> 
> I'm not sure whether or not my thinking in Ada is proper - Ada verries
> a lot from C++ and Java OOP...
> 
> My codes are below
> 
> thanks in advance
> 
> best regards R
> 
> main.db unit:
> 
> with Text_IO;
> use Text_IO;
> with testclass;
> procedure Main is
> T: testclass.rec1;
> begin
> T.Set(5);
> Put_Line(Integer'Image(T.Get));
> end Main;
> 
> testclass.ads:
> package testclass is
> 
> type rec1 is tagged null record; --is abstract

If you want an abstract class you should say so:

type rec1 is abstract tagged null record:

Of corse when testclass is abstract then you need a non abstract
testclass_2 :-). So maybe you don't want an abstract class after all.

> field: Integer;

field should be part of record "rec1" otherwise it is "static" to use C++
talk!

> function Set(s: Integer) return Integer;
> function Get return Integer;

function Set(s: Integer) return Integer is abstract;
function Get return Integer is abstract;

> 
> end testclass;
> 
> and testclass.adb
> package body testclass is
> function Set(s: Integer) return Integer is
> begin
> field := s;
> return field;
> end Set;
> 
> function Get return Integer is
> begin
> return field;
> end Get;

> end testclass;

Where did you actualy fail?

Suggested Reading:

http://en.wikibooks.org/wiki/Programming:Ada:OO
http://en.wikibooks.org/wiki/Programming:Ada:Types:record

With Regards

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