5 with Ada.Strings.Fixed;
7 procedure String_Slice2 is
9 package ASF renames Ada.Strings.Fixed;
11 Delete_String : String(1..10);
12 Source_String2 : String(1..12) := "abcdefghijkl";
16 Delete_String := Source_String2(1..10);
18 ASF.Delete(Source => Delete_String,
20 Through => Delete_String'Last,
21 Justify => Ada.Strings.Left,