Object-oriented Software in Ada 95

120 Arrays
When run, this would deliver the following results:
mada m'i madam
Note:
Even though dynamic arrays can be created, they can only be used to store an object that is type
compatible. In particular, the number and type of the elements in the receiving object must be the same
as in the delivered object.
8.10 A name and address class
A class for managing a person’s name and address has the following responsibilities.
Method
Set
Deliver_Line
Lines
Responsibility
Set the name and address of a person. The name and address
is specified with a / character separating each line.
Deliver the n'th line of the address as a string.
Deliver the number of lines in the address.
The specification for the class is as follows:
package Class_Name_Address is
type Name_Address is tagged private;
procedure Set( The:out Name_Address; Str:in String );
function Deliver_Line( The:in Name_Address;
Line:in Positive ) return String;
function Lines( The:in Name_Address ) return Positive;
private
Max_Chs : constant := 200;
subtype Line_Index is Natural range 0 .. Max_Chs;
subtype Line_Range is Line_Index range 1 .. Max_Chs;
type Name_Address is tagged record
Text : String( Line_Range ); --Details
Length : Line_Index := 0; --Length of address
end record;
end Class_Name_Address;
© M A Smith - May not be reproduced without permission