Ada I / O：Put_Line在Get_Line之后无法正常工作

作者: afs-loliaholic
发布时间: 2024-03-29 10:39:04 (1月前)
转自：

3 条回复

0#
回复此人
敢嫁就敢娶 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> <code> usrIn </code> 是一个 <code> String(1..80) </code> ，即一个80个字符的数组。 </p> <P> 这一行： </p> <pre> <code> Append(appendString,usrIn); </code> </pre> <P> 将所有80个字符（大部分可能是垃圾）附加到 <code> appendString </code> 。 </p> <P> 这是什么的 <code> last </code> 论证 <code> Get_Line </code> 是为了。 </p> <P> 更换 <code> userIn </code> 通过 <code> userIn(userIn'First .. last) </code> 。这是一个片段，只包含由。读取的字符 <code> Get_Line </code> 呼叫。 </p> </DIV>

编辑
1#
回复此人
無口君 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 如果您正在使用Ada 2005或更高版本的版本进行编译，您还可以使用函数形式 <a href="https://en.wikibooks.org/wiki/Ada_Programming/Libraries/Ada.Text_IO" rel="nofollow noreferrer"> <code> Get_Line </code> </A> ： </p> <pre> <code> declare usrIn : constant String := Get_Line; begin Append(appendString,usrIn); end; </code> </pre> </DIV>

编辑

登录后才能参与评论