[Electronic_Arts]

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

Код:

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]

Код:

type
 TBuffer = array of Char;

Код:

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

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

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

[icWasya]

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

Код:

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

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

Код:

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

[poli-smen]

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

Код:

type
 TBuffer = array of Char;

Код:

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

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

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

Код:

P[Length(P)]

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

Код:

P[Length(P) - 1]

либо так:

Код:

P[High(P)]

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

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

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

[Electronic_Arts]

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

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

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

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