Re: How to define an array of a variant record type?

["Steve" <nospam_steved94@comcast.net>]

One other thing I can't resist mentioning.

Here is a snippet of Ada Code in oue of our systems.

  TYPE aConstantDataItemCAX (itemTypeCAX : aConstantDataTypeCAX :=
invalidTypeCAX) IS
    RECORD
      CASE itemTypeCAX IS
        WHEN invalidTypeCAX | iTypeCAX =>
          --The data item that is used to pass data between screen edit
          --and the access procedures
          intValueCAX : integer;
        WHEN fTypeCAX =>
          realValueCAX : float;
        WHEN eTypeCAX =>
          eValueCAX : anEnumRecordCAX;
        WHEN sTypeCAX =>
          stringValueCAX : aConstantStringCAX;
      END CASE;
    END RECORD;

Funny how the same ideas come up again and again.  The original code was
written in Pascal around 1987.

Steve
(The Duck)