11 lines
438 B
ObjectPascal
11 lines
438 B
ObjectPascal
|
{$zerobasedstrings}
|
|||
|
|
begin
|
|||
|
|
// Директива воздействует на доступ по индексу и на срезы
|
|||
|
|
// Директива глобальна и распространяется на весь файл
|
|||
|
|
var s := '0123456789';
|
|||
|
|
Println(s[0:5],s[5:8],s[8:]); // 01234 567 89
|
|||
|
|
// Директива НЕ воздействует на доступ по индексу с конца
|
|||
|
|
Print(s[^1]);
|
|||
|
|
end.
|
|||
|
|
|