Ada:获取数组中最后一个元素的前缀问题
Ada: prefix issue in getting last element in an array
我正在试验我的第一个 Ada 程序 (Ada 2012),运行遇到了一些困难。我正在从用户那里获取输入并将其存储到许多无界字符串中。然后我将这些无界字符串传递到一个过程中,在该过程中我提取每个无界字符串的最后一个元素并将其添加到字符数组中。我读到数组需要被实例化为类型,但是当我这样做时,我 运行 出错了,所以我在没有类型引用的情况下进行了实例化。
问题来自
last: Character := c0.Last;
我收到 "invalid prefix in selected component "c0"" 错误。
以下是目前的代码:
with Ada.Text_IO, Ada.Integer_Text_IO, Ada.Strings.Unbounded.Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO, Ada.Strings.Unbounded, Ada.Strings.Unbounded.Text_IO;
procedure game is
card0: Unbounded_String;
card1: Unbounded_String;
card2: Unbounded_String;
card3: Unbounded_String;
card4: Unbounded_String;
cardNumArray: array (1..5) of Integer;
suiteArray: array (1..5) of Character;
procedure setUpData(c0, c1, c2, c3, c4: in Unbounded_String) is
last_c0: Character := c0.Last;
begin
suiteArray := (last_c0, 'S', 'S', 'H', 'S');
end setUpData;
begin
Put_Line ("Enter your card details:\n");
Put_Line ("Enter card 1, e.g. ""AH:"" ");
Get_Line(card0);
Put_Line ("Enter card 2, e.g. ""KH:"" ");
Get_Line(card1);
Put_Line ("Enter card 3, e.g. ""QH:"" ");
Get_Line(card2);
Put_Line ("Enter card 4, e.g. ""10H:"" ");
Get_Line(card3);
Put_Line ("Enter card 5, e.g. ""JH:"" ");
Get_Line(card4);
setUpData(card0, card1, card2, card3, card4);
end game;
last_c0 : Character := element (c0, length (c0));
很可能会解决您的问题。
我正在试验我的第一个 Ada 程序 (Ada 2012),运行遇到了一些困难。我正在从用户那里获取输入并将其存储到许多无界字符串中。然后我将这些无界字符串传递到一个过程中,在该过程中我提取每个无界字符串的最后一个元素并将其添加到字符数组中。我读到数组需要被实例化为类型,但是当我这样做时,我 运行 出错了,所以我在没有类型引用的情况下进行了实例化。
问题来自
last: Character := c0.Last;
我收到 "invalid prefix in selected component "c0"" 错误。
以下是目前的代码:
with Ada.Text_IO, Ada.Integer_Text_IO, Ada.Strings.Unbounded.Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO, Ada.Strings.Unbounded, Ada.Strings.Unbounded.Text_IO;
procedure game is
card0: Unbounded_String;
card1: Unbounded_String;
card2: Unbounded_String;
card3: Unbounded_String;
card4: Unbounded_String;
cardNumArray: array (1..5) of Integer;
suiteArray: array (1..5) of Character;
procedure setUpData(c0, c1, c2, c3, c4: in Unbounded_String) is
last_c0: Character := c0.Last;
begin
suiteArray := (last_c0, 'S', 'S', 'H', 'S');
end setUpData;
begin
Put_Line ("Enter your card details:\n");
Put_Line ("Enter card 1, e.g. ""AH:"" ");
Get_Line(card0);
Put_Line ("Enter card 2, e.g. ""KH:"" ");
Get_Line(card1);
Put_Line ("Enter card 3, e.g. ""QH:"" ");
Get_Line(card2);
Put_Line ("Enter card 4, e.g. ""10H:"" ");
Get_Line(card3);
Put_Line ("Enter card 5, e.g. ""JH:"" ");
Get_Line(card4);
setUpData(card0, card1, card2, card3, card4);
end game;
last_c0 : Character := element (c0, length (c0));
很可能会解决您的问题。