Re: tasks as part of record

[Shark8 <OneWingedShark@gmail.com>]

On 10/13/2014 8:45 AM, compguy45@gmail.com wrote:
>
>
> is there a way to access say Students(4) componenets while inside start entry?
>

Assuming the tasks are declared as:
   task type Student_Task   (This : not null access Student)
   task_type Enrollment_Task(This : not null access Enrollment)
and the records, Student & Enrollment, are as follows:
   type Student(N  : Positive) is limited record
        ID_Number  : Positive range 1 .. N;
        Name       : Unbounded_String;
        Count      : Integer ;
        Student_Op : Student_Task(Student'Access);
    end record;
and
   type Student_Body is arrray(Positive range <>) of Student;
   type Enrollment(Number_of_Students : Positive) is limited record
        Students : Student_Body(1..Number_of_Students);
        Enroll   : Enrollment_Task( Enrollment'Access );
   end record;

THEN
inside the body of Enrollment_Task you could say:
declare
  Quaddius : Student renames This.Students(4);
begin
   -- Do what you will.
end;