051.字符串的拼接

CR表示carriage return，LF表示line float，可以通过阅读他的源码发现，LF，CR 被定义为 ASCII 的 10 13号字符，分别表示：换行，回车。

with Ada.Text_IO,Ada.Characters.Latin_1;
use Ada.Text_IO;

procedure Concat is
   
   String4 :String (1..4);
   String7 :String (1..7);
   
begin
   
   String7 :="CAT"&"FISH"; --CATFISH
   Put(String7);
   New_Line;
   
   String4:="CAT"&"S"; -- CATS
   Put(String4);
   New_Line;
   
   String4:="S"&"CAT"; -- SCAT
   Put(String4);
   New_Line;
   
   String7:=String4&"cat"; --SCATcat
   Put(String7);
   New_Line;
   
   String7 :="Go"&Ada.Characters.Latin_1.CR&
     Ada.Characters.Latin_1.LF&"Car"; -- &Ada.Characters.Latin_1.CR&
     Ada.Characters.Latin_1.LF& 这两个需要同时写才会出现换行的效果
   Put(String7);
   New_Line;
   
   String7(3..5):="1db";
   Put(String7);
   New_Line;
end Concat;