string - 将无界字符串转换为整数 Ada

Question

我的问题很简单，因为 Google 让我失望了。如何将无界字符串转换为整数？

如果字符串是有界的，我可以这样做:I : Integer := Integer'Value("613");

但是，我的字符串是无界的，Ada 抛出了这个错误:

预期类型“Standard.String” 找到私有(private)类型“Ada.Strings.Unbounded.Unbounded_String”

我想做的事可能吗？

Answer 1

您只需要进行中间转换:

I : Integer := Integer'Value (To_String (T));

这是一个完整的测试程序:

with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
with Ada.Text_IO; use Ada.Text_IO;

procedure Main is
   T : Unbounded_String := To_Unbounded_String ("613");
   I : Integer := Integer'Value (To_String (T));
begin
   Put_Line (I'Image);
end Main;