如何使用字符串值访问对象

作者: 只怕再见是故人
发布时间: 2024-06-29 02:12:06 (14天前)
转自：

2 条回复

0#
回复此人
google你他吗 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 一种方法是将对象声明为由枚举类型索引的数组，该枚举类型的值是标识符。例如，如果标识符是符号A到Z，则可以将数组定义为： </p> <pre> <code> subtype Index is Character range 'A'..'Z'; type Collection is array(Index) of Integer; Idx : Index; Value : Integer; The_Collection : Collection; while not End_Of_File(Input_File) loop Get(Idx); Get(Value); Skip_Line; The_Collection(Idx) := Value; end loop; </code> </pre> <P> 当然，您需要“使用”相应的I / O包。 </p> </DIV>

编辑

登录后才能参与评论