19 lines
403 B
ObjectPascal
19 lines
403 B
ObjectPascal
{$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. |