[Electronic_Arts]

Почему программа начала выдавать такую ошибку?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

procedure CreateBuffer(Names: TStrings; var P: TBuffer); var  i, j, l : integer; begin  for i := 0 to Names.Count-1 do   begin    l:= Length(P);    SetLength(P, L+Length(Names[i])+1);    for J := 0 to Length(Names[i])-1 do     begin     if J > Length(Names[i])-1 then exit;     P[L + J]:= Names[i] [J + 1];     P[L + J]:= #0;     end;   end;  SetLength(P, Length(P)+1);  P[Length(P)]:= #0; // ошибка тут end;

http://i7.picsplace.ru/images/230414...2100b6a88d.png

[lmikle]

А что такое TBuffer? Динамический массив? Тогда там нумерация начинается с 0 и последний элемен имеет индекс Length()-1.

[Electronic_Arts]

Код:

1 2	type  TBuffer = array of Char;

Код:

1 2 3

SetLength(P, Length(P)+1);  P[Length(P)]:= #0; end;

но ведь мы же размер увеличиваем на единицу почему -1??

И еще одно это проблема начала возникать после того как я решил все предупреждения в логах... до этого все работало без ошибок
и все предупреждения которые были решены не имели отношения к этой процедуре...

[icWasya]

но ведь мы же размер увеличиваем на единицу почему -1??
после того, как размер увеличиваем на единицу, ты берёшь Length(P), который уже стал больше на единицу.
например, Length(P) = 5;
после

Код:

1	SetLength(P, Length(P)+1);

Length(P) = 6;
а здесь и будет ошибка

Код:

1	P[Length(P)]:= #0;

[poli-smen]

Сообщение от Electronic_Arts

Код:

Код:

но ведь мы же размер увеличиваем на единицу почему -1??

Размер увеличили, поэтому Length(P) во второй строке вернёт число на единицу больше чем Length(P) в первой строке и опять будет выход за пределы массива, поэтому увеличивай хоть на "тыщу", но такая строка для динамических массивов буде всегда некорректной:

Код:

1	P[Length(P)]

Нужно делать либо так:

Код:

1	P[Length(P) - 1]

либо так:

Код:

1	P[High(P)]

Сообщение от Electronic_Arts

И еще одно это проблема начала возникать после того как я решил все предупреждения в логах... до этого все работало без ошибок

Я не понимаю что значит "решил все предупреждения в логах"...

[Electronic_Arts]

Сообщение от poli-smen

Я не понимаю что значит "решил все предупреждения в логах"...

После компиляции в окне Messages в Delphi отображаются предупреждения если они имеются в программе
(например какая та переменная не используется и все такое создал для проверки кода потом забыл)

poli-smen СПАСИБО
High(p) - решил проблему...