ada experiments

2021-10-01 11:03:54 +00:00
parent 3ec3a9a17e
commit 1311ea8253
3 changed files with 57 additions and 10 deletions
--- a/h2/lib2/hello.adb
+++ b/h2/lib2/hello.adb
@ -161,6 +161,8 @@ begin
 		S.Append (Str2, " THIS IS FANTASTIC ELASTIC STRING WRITTEN FOR H3");
 	
 		S.Replace (Str2, 1, 'Q');
+		S.Insert (Str2, 1, 'B');
+		S.Insert (Str2, 1, 'A');
 		--S.Replace (Str2, 10000, 'Q'); -- constraint error

 		declare