我使用的是Windows 10（64位），我從http://libre.adacore.com/download/configurations#下載了GNAT GPL 2017，ARM ELF格式（託管在Windows上）。 我創建了一個示例代碼： with Ada.Text_IO; use Ada.Text_IO;
procedure Hello is
begin
Put_Line
我想創建和初始化以下方式控制的類型（有點像一個廠）創建一個函數： function Create return Controlled_Type
is
Foo : Controlled_Type;
begin
Put_Line ("Check 1")
return Foo;
end Create;
procedure Main
is
Bar : C
我正在使用GTKADA，爲一個小應用程序，並希望右對齊菜單欄上的幫助菜單。 舊的方法是在新菜單上調用Set_Right_justified，但現在已過時。 可以看到，我應該可以使用Set_Hexpand和Set_Halign來做到這一點。 我目前使用的代碼是： - with GTK.WIDGET;
procedure Add_Menu_To_Menu_Bar
(Menu_Bar : in G
我是for ***'Address use ***的新用法。我想知道這種用法有什麼限制。所以，我創建了以下程序： procedure letshack (A : System.Address) is
My_String : String(1..100000);
for My_String'Address use A;
begin
Put(My_Stri
我試圖編譯一個簡單的GTK應用程序，但是當我編譯，生成不能歸因於GTK源警報... 編譯日誌： Compile
[Ada] main.adb
gdk-display.ads:361:80: (style) this line is too long
gdk-event.ads:290:80: (style) this line is too long
…
gprbuild:
在Ada中嵌套「然後中止」結構合法嗎？如果是，我可以如何正確使用它們？我有這樣的代碼： with Ada.Text_IO; use Ada.Text_IO;
procedure Main is
task TestTask is
end TestTask;
task body TestTask is
begin
select
de