string - 在 Ada 中打印出字符

Question

我声明了这些:

  subtype Num_Char          is Natural 
     range 1 .. Definitions.Page_Width + 1;
  subtype Number_Of_Rows    is Definitions.Number_Of_Rows;
  type Chars                is array (Number_Of_Rows, Num_Char) of Character; 
  The_Chars           : Chars;

使用 Ada.Text_IO.Put_Line() 将其打印到屏幕的最佳方法是什么？

Answer 1

假设您想使用 Ada.Text_IO 而不仅仅是 Put_Line，并假设 Number_Of_Rows 是一个整数范围，例如Num_Char，就是

for R in The_Chars'Range (1) loop
   for C in The_Chars'Range (2) loop
      Ada.Text_IO.Put (The_Chars (R, C));
   end loop;
   Ada.Text_IO.New_Line;
end loop;