GNAT Get（FRom => SomeString， item => SomeInteger， last => last）中的错误？

《Ada 语言参考手册》指出：

procedure Get(From : in String; Item : out Num; Last : out Positive);

从给定字符串的开头读取整数值， 遵循与读取整数的 Get 过程相同的规则 文件中的值，但将字符串的末尾视为文件 终结者。在参数 Item 中返回 Num 类型的值，该值 对应于序列输入。在 Last 中返回索引值 这样，From（Last） 是读取的最后一个字符。

如果序列输入未传播异常Data_Error 具有所需的语法，或者如果获得的值不是 子类型 Num。

从文件中读取值的解释是

procedure Get(File : in File_Type; Item : out Num; Width : in Field := 0);
procedure Get(Item : out Num; Width : in Field := 0);

如果参数 Width 的值为零，则跳过任何前导空格， 行终止符或页面终止符，然后读取加号，如果 存在或（仅适用于有符号类型）减号（如果存在），则 读取与语法匹配的最长字符序列 没有点的数字文字。如果 Width 的非零值为 提供，则准确输入宽度字符，或字符 （可能没有）最多一个行终结器，以先到者为准;任何 跳过的前导空格包括在计数中。

get 函数工作正常。 如果要转换包含 Ada 十六进制值（如 16#12#）的字符串，则应使用 'Value 属性。

with Ada.Text_IO; use Ada.Text_IO;

procedure convert_hex is
   Num : Integer := Integer'Value ("16#12#");
begin
   Put_Line (Num'Image);
end convert_hex;

好吧，这不可能是你运行的代码，因为你还没有声明.另外，那是什么？HexStringGet

这可以按照您的意愿工作：

with Ada.Text_IO;         use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;

procedure hex is
   IntValue  : Integer;
   HexString : String (1 .. 16);
   Last : Natural;
begin
   Put("Enter a hexadecimal string: ");
   Get_Line(HexString, Last => Last);

   -- Convert the hexadecimal string to an integer
   Get(From => HexString (1 .. Last), Item => IntValue, Last => Last);

   Put ("The integer value is: ");
   Put (IntValue, Width => 0);
   New_Line;
end hex;