谁能告诉我在 Ada 语言中插入的用法。我已经尝试过网络,但我无法弄清楚。如果有人也可以为我提供示例,那将是一个很大的帮助。
在此先感谢麦迪
我以前从未使用Insert
过(除了简单的字符串之外,通常不需要做任何事情Put_Line
)所以把它放在一起:
with Ada.Strings.Fixed;
with Ada.Text_IO; use Ada.Text_IO;
procedure Inserting is
Base : constant String := (1 .. 8 => ' ') & "aaaaaaaa" & (1 .. 8 => ' ');
begin
Put_Line (ASCII.HT & '|' & Base & '|');
for J in 1 .. 24 loop
declare
S : String := Base;
begin
Ada.Strings.Fixed.Insert (S,
Before => J,
New_Item => "ccc");
Put_Line (Integer'Image (J) & ASCII.HT & '|' & S & '|');
end;
end loop;
end Inserting;
输出是
| aaaaaaaa |
1 |ccc aaaaaaaa |
2 | ccc aaaaaaaa |
3 | ccc aaaaaaaa |
4 | ccc aaaaaaaa |
5 | ccc aaaaaaaa |
6 | ccc aaaaaaaa |
7 | ccc aaaaaaaa |
8 | ccc aaaaaaaa |
9 | cccaaaaaaaa |
10 | acccaaaaaaa |
11 | aacccaaaaaa |
12 | aaacccaaaaa |
13 | aaaacccaaaa |
14 | aaaaacccaaa |
15 | aaaaaacccaa |
16 | aaaaaaaccca |
17 | aaaaaaaaccc |
18 | aaaaaaaa ccc |
19 | aaaaaaaa ccc |
20 | aaaaaaaa ccc |
21 | aaaaaaaa ccc |
22 | aaaaaaaa ccc|
raised ADA.STRINGS.LENGTH_ERROR : a-strfix.adb:358
我希望能给大家带来一般的味道。
http://www.adaic.com/standards/95aarm/html/AA-A-4-3.html (3)上的 Ada95AARM A.4.3讲述了这背后的概念。