9 lines
138 B
ObjectPascal
9 lines
138 B
ObjectPascal
{$zerobasedstrings}
|
|
begin
|
|
var s := 'ABCD';
|
|
Assert(s[^1]='D');
|
|
Assert(s[^2]='C');
|
|
Assert(s[^3]='B');
|
|
Assert(s[^4]='A');
|
|
end.
|