在流程成功完成后,是否有办法告诉Viewflow重定向到特定路径?理想情况是这样的:
with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
procedure Revolver is
type Pistol is array (1..5) of String(1..10);
procedure Get_namn(Namn: out Pistol) is
X:Integer;
pist:String(1..10);
begin
New_Line;
for I in 1..5 loop
Get_line(Pist,x);
if pist'Last=x then
Skip_Line;
end if;
Namn(I):= Pist;
end loop;
New_Line;
end Get_Namn;
procedure Put_Namn(Namn: in Pistol) is
begin
for I in Namn'range loop
Put(Namn(I));
New_Line;
end loop;
end Put_Namn;
Namn : Pistol;
X : Integer;
begin
Put("Mata in revolvrar: ");
Get_namn(Namn);
Put_Namn(Namn);
end Revolver;