Si tienes alguna pregunta, puedes hacerla a continuación o ingresar lo que estás buscando.
Tengo el siguiente fragmento de código: with GNAT.Command_Line; use GNAT.Command_Line; with GNAT.Strings; use GNAT.Strings; Define la función: Define_Switch (Config => Config, Output => File_Name’Access, Long_Switch => “–file=”, Switch => “-f=”, Help => “Archivo con la Composición”); Después de analizar la línea de comandos usando Getopt, tengo acceso al objeto que . . . Read more
with Ada.Text_IO; use Ada.Text_IO; procedure TF is function Character_Check return Boolean is Check : Character; begin Get(Check); if Check = ‘T’ then return True; else return False; end if; end Character_Check; begin Put(“Type F or T (For False or True): “); if Character_Check then Put(“You typed True”); else Put(“You typed . . . Read more
Espero que esto sea una solución rápida y estoy seguro de que no es algo que AdaCore haya estropeado. He estado utilizando GNAT Com 2021 desde su lanzamiento y nunca he tenido un problema con él, hasta ahora. Básicamente, creo un nuevo proyecto “Simple Ada Project”, lo nombro, elijo el . . . Read more
Cree un subprograma de tipo operador que reciba dos enteros y envíe de vuelta la suma negativa de ellos. Es decir, si la suma es positiva, el resultado será negativo o si la suma es negativa, el resultado será positivo. Ejemplo: 6 y 4 dan como resultado -10 y 2 . . . Read more
Mi preocupación es que creé una función de devolución de llamada, la cual debería mostrar un Gtk_Entry cuando hacemos clic en el Gtk_Button pero resulta que cuando hago clic en el botón no pasa nada. No entiendo por qué. Archivo.ads Paquete Test es Tipo T_Test es registro Conteneur : Gtk_Fixe; . . . Read more