pascalabcnet/TestSuite/slice_string_nullbased.pas

{$zerobasedstrings}

uses PABCExtensions;

begin
  var s := '12345';
  var a := s[:4];
  Assert(a='1234');
  //s.SystemSliceAssignment0(a,0,1,5);
  //s[1:5] := a; // Почему-то в 32 битном режиме тесты падают
  //Assert(s='11234');
  s := '123456';
  a := s[::2];
  Assert(a='135');
  a := s[1:^1];
  Assert(a='2345');
  //s[::2]:=s[1::2];
  //Assert(s='224466');
end.
-												[Cache] может работать с exit и использует d.TryGetValue

											
										
										
											2021-08-28 23:15:33 +03:00
+								{$zerobasedstrings}
-												{$string_nullbased+}
работает со срезами строк!

											
										
										
											2021-07-18 13:32:13 +03:00
-												Permutations Cartesian Combinations в модуле School для строк

											
										
										
											2021-08-01 17:08:16 +03:00
+								uses PABCExtensions;
-												{$string_nullbased+}
работает со срезами строк!

											
										
										
											2021-07-18 13:32:13 +03:00
+								begin
 								  var s := '12345';
 								  var a := s[:4];
 								  Assert(a='1234');
-												Permutations Cartesian Combinations в модуле School для строк

											
										
										
											2021-08-01 17:08:16 +03:00
+								  //s.SystemSliceAssignment0(a,0,1,5);
-												{$string_nullbased+}
работает со срезами строк!

											
										
										
											2021-07-18 13:32:13 +03:00
+								  //s[1:5] := a; // Почему-то в 32 битном режиме тесты падают
 								  //Assert(s='11234');
 								  s := '123456';
 								  a := s[::2];
 								  Assert(a='135');
-												Исправлена ошибка с null_based + срезы + ^1

											
										
										
											2021-07-18 14:58:21 +03:00
+								  a := s[1:^1];
 								  Assert(a='2345');
-												{$string_nullbased+}
работает со срезами строк!

											
										
										
											2021-07-18 13:32:13 +03:00
+								  //s[::2]:=s[1::2];
 								  //Assert(s='224466');
 								end.