Re: Question on array of strings

[Gautier write-only <gautier_niouzes@hotmail.com>]

Hello!

My usual way of doing that is:

function Event_To_String(Event : in Events_Type) return String is
begin
  case Event is
    when Ev1 => return "ev3434";
    when Ev2 => return "evEnd";
  end case;
end;

You live longer without pointer ;-).

For more complicated cases, I use unbounded strings, like there:

  type External_packer_info is record
    name, title, URL, options: Unbounded_String;
    expanded_options    : Unbounded_String;
    -- options with dynamically expanded tokens
    made_by_version     : Unsigned_16;
    pkzm                : Zip.PKZip_method;
  end record;

  ext: array(External) of External_packer_info:=
    (
      (U("zip.exe"), U("Zip"), U("http://info-zip.org/"), U("-9"), U
(""), 20, Zip.deflate),
       -- Zip 2.32 or later
      ...
     );

HTH
_________________________________________________________
Gautier's Ada programming -- http://sf.net/users/gdemont/
NB: For a direct answer, e-mail address on the Web site!