Ф-я Length(s) Опции

[klem4]

Как вы можете объяснить результат этой рпограммы ? Строка изменяется, а длина остается прежней.

uses crt;
var
   s : string;
   T : char;
   i : byte;

begin
   clrscr;
   s := 'TEST';
   for i := length(s) + 1 to 20 do s[i] := 'r';
   writeln('s[6] = ', s[6]);
   writeln('length(s) = ',length(s));
   readln;
end.

Сообщение отредактировано: klem4 - 4.03.2006 15:00

[volvo]

странно по идее паскаль сам долже этим заниматься

Это смотря какой Паскаль еще... У тебя FPC? Там трюки с 0-м символом не проходят... 1000 раз говорили - не занимайтесь грязным хаком, используйте предназначенные для работы со строками процедуры, для переносимости...