/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/slice_string_nullbased.pas
19 строк
403 B
Mikhalkovich Stanislav
[Cache] может работать с exit и использует d.TryGetValue
28 авг 2021, 23:15
28 авг 2021, 23:15
ecf7ef3
Код
Авторство
О чём код?
{$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.