Ada中打印带前导零的十六进制数：是否有简便库函数替代复杂实现？

你当前的实现需要手动处理字符串裁剪、移除基数标识再补前导零，确实比较繁琐。Ada标准库其实提供了更直接的方式来实现这个需求，无需手动拼接处理字符串。

Ada的Ada.Text_IO.Modular_IO包提供的Put过程支持直接指定输出宽度、填充字符，并且可以关闭基数前缀（即不生成16#...#格式），直接生成带前导零的十六进制字符串。

简化实现示例（32位无符号数） #

with Interfaces;
with Ada.Text_IO; use Ada.Text_IO;

procedure Simplified_Hex is
   package U32_IO is new Ada.Text_IO.Modular_IO (Interfaces.Unsigned_32);
   use U32_IO;

   function Hex (hval : Interfaces.Unsigned_32; num_digits : Integer := 8)
      return String
   is
      Result : String (1 .. num_digits);
   begin
      Put (To => Result,
           Item => hval,
           Base => 16,
           Prefix => False,  -- 关闭16#...#格式前缀
           Width => num_digits,
           Fill => '0');     -- 用0填充前导空位
      return Result;
   end Hex;

begin
   Put (Hex (16#1A#, 4));
   for ii in 0 .. 15 loop
      Put (" " & Hex (Interfaces.Unsigned_32 (ii), 2));
   end loop;
   New_Line;
   Put_Line (Hex (16#7F1B#));
   Put_Line (Hex (16#7FFF1C#));
   Put_Line (Hex (16#7FFFFF1D#));
   Put_Line (Hex (16#9FFFFF1E#));
end Simplified_Hex;

输出结果 #

运行上述代码，输出与你原实现完全一致：

001A 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F
00007F1B
007FFF1C
7FFFFF1D
9FFFFF1E

扩展到8、16位无符号数 #

针对8位（Interfaces.Unsigned_8）和16位（Interfaces.Unsigned_16）无符号数，只需分别实例化Modular_IO包即可，实现逻辑完全一致：

-- 8位无符号数的IO包
package U8_IO is new Ada.Text_IO.Modular_IO (Interfaces.Unsigned_8);
-- 16位无符号数的IO包
package U16_IO is new Ada.Text_IO.Modular_IO (Interfaces.Unsigned_16);

这种方式直接利用标准库的参数配置完成格式控制，避免了手动处理字符串的繁琐步骤，代码更简洁易维护。

内容的提问来源于stack exchange，提问作者cup