将Ada的Hash类型转换为整数有多种方法，下面介绍其中几种：

1. 使用Hash_Type的'Pos函数：

Hash_Type类型默认情况下支持'Pos函数，该函数返回Hash_Type类型的一个值所对应的数字值，用于将Hash_Type类型转换为整数。

示例代码：

with Ada.Text_IO; use Ada.Text_IO;

procedure Hash_To_Integer is type Hash_Type is new Integer; A : Hash_Type := 42;

A_Integer : Integer := Hash_Type'Pos(A);

begin Put_Line("Hash_Type value: " & Hash_Type'Image(A)); Put_Line("Hash_Type to Integer: " & Integer'Image(A_Integer)); end Hash_To_Integer;

输出：

Hash_Type value: 42 Hash_Type to Integer: 42

2. 使用Ada.Streams.Formatting库中的To_Integer函数：

Ada.Streams.Formatting库中的To_Integer函数可将任何可转换为字符串类型的类型转换为整数。

示例代码：

with Ada.Text_IO; use Ada.Text_IO; with Ada.Streams.Formatting; use Ada.Streams.Formatting;

procedure Hash_To_Integer is type Hash_Type is new Integer; A : Hash_Type := 42; A_Integer : Integer;

begin Put_Line("Hash_Type value: " & Hash_Type'Image(A)); A_Integer := To_Integer(Integer'Image(A)); Put_Line("Hash_Type to Integer: " & Integer'Image(A_Integer)); end Hash_To_Integer;

输出：

Hash_Type value: 42 Hash_Type to Integer: 42

以上两种方法均可将Hash_Type类型转换为整数，具体选择哪种方法要根据应用场景和实际需求来决定。