Ada 字符串到枚举的转换

【问题标题】：Ada String to Enumeration ConversionAda 字符串到枚举的转换
【发布时间】：2012-10-11 01:04:51
【问题描述】：

我想将现有字符串转换为枚举（而不是作为枚举读入）。我该怎么做？

【问题讨论】：

【解决方案1】：

示例：

-- type declaration
type Hands is (Left, Right);

-- code body
Hand : Hands;
Hand := Hands'Value("Left"); -- yields `Left`

【讨论】：

别忘了，'value 操作如果传给 "lef" 就会失败。您可以通过使用 'Image & 迭代标量类型来检查您的字符串是否可转换，如果您得到一个 true，则使用 'Value 进行转换。
请注意，您可以在其周围放置一个异常处理程序，以捕获字符串与已知枚举名称不匹配的错误。在过去，我发现这对于快速而肮脏的用户界面非常方便。