Re: problem with command line

[Jeffrey Creem <jeff@thecreems.com>]

[Taz] wrote:
> hi,
> I have a problem with the command line ...
> I declare two variables like in the code below.
> If the call to my file don't have parameter, I get a error ...
> How can I solve this?
> ...
> 
> procedure Test is
> 
> Nome1 : String := Argument (1);
> 
> Nome2 : String := Argument (2);
> 
> ...
> 
> 

Check to Ada.Command_Line.Argument_Count first to be sure that you 
actually have parameters 1 and 2. This will of course require that you 
not declare strings and assign them during declaration but then this 
requires you to use access types for the strings or accessor functions 
or some other method.

For example, you could create a function like

function Get_Argument_And_Null_If_Not_Present(I : Positive) return String is

begin
   if Ada.Command_Line.Argument_Count >= I then
     return Ada.Command_Line.Argument(I);
   else
     return "";
   end if;
end Get_Argument_And_Null_If_Not_Present;

And use that to fill in your strings.

It very much depends on what you are trying to accomplish.