Ada：如何將枚舉枚舉爲小寫

Question

我的名字以大寫字母開頭，其餘爲小寫字母。它只打印全部大寫字母。如何打印，因爲我有它定義？謝謝！

Answer 1

當您在Ada.Text_IO.Enumeration_IO的實例中調用相關Put過程時，請爲Type_Set參數指定Lower_Case。鑑於這些聲明，

type Name_Type is (Alice, Bob, Carl); 
package Name_IO is new Ada.Text_IO.Enumeration_IO (Name_Type); 

下面的代碼打印在控制檯上的 「鮑勃」：

Name_IO.Put(Bob, Name_IO.Default_Width, Ada.Text_IO.Lower_Case); 

我能行 「鮑勃」，而不是 「鮑勃」？

是的;例如，使用Ada.Strings.Fixed，

• @ B98引用一個方法here。

• 使用Enumeration_IO，以下片段打印「Bob」。

  Upper : String(1 .. 8); 
  Lower : String(1 .. 8); 
  … 
  Name_IO.Put(Upper, Bob, Ada.Text_IO.Upper_Case); 
  Name_IO.Put(Lower, Bob, Ada.Text_IO.Lower_Case); 
  Ada.Text_IO.Put_Line(Ada.Strings.Fixed.Trim(
      Upper(Upper'First) & Lower(Lower'First + 1 .. Lower'Last), 
      Ada.Strings.Right));