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
,