Ошибка: Access violation at address 00409FD2 in module 'Project1.exe'. Write of address 00415BA8.

[Женя32]

Здравствуйте!
Подскажите, пожалуйста, почему когда идет заполнение колонок из массива, выходит ошибка: Access violation at address 00409FD2 in module 'Project1.exe'. Write of address 00415BA8.

procedure TForm1.FormCreate(Sender: TObject);
const headers: array[0..4] of string = ('№',
                                   'тур',
                                   'взр.',
                                   'дет.',
                                   'стоимость до');
var
 I: Integer;
begin
     for I := 0 to Length(headers) do
     begin
       StringGrid1.Cells[I, 0]:=headers[I];
     end;

end;

[digitalis]

Ну если, скажем, Length(headers) будет хотя бы 100, то что такое будет headers[99], если всего лишь headers: array[0..4] ?

[Женя32]

digitalis, спасибо!

[digitalis]

Тщательнее надо, тёзка !

[northener]

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

Ну если, скажем, Length(headers) будет хотя бы 100, то что такое будет headers[99], если всего лишь headers: array[0..4] ?

Если это подсказка, то я бы её не понял бы никогда.

[digitalis]

Что же тут понимать - индекс массива принимает немыслимые значения, отсюда и Access violation

[northener]

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

Что же тут понимать - индекс массива принимает немыслимые значения, отсюда и Access violation

Почему немыслимые? Всего лишь 0..5

[digitalis]

Да, действительно. Я никогда не применял Lenght к массивам, только к строкам, вот потому так порешил... Нужно срочно расширять кругозор.
Тогда, возможно, конфликт с размером StringGrid1, не описанном в посте.
Женя32, sorry, кажется, в моем посте проявился Иван Сусанин.
-----------------------------
"Ошибки надо не признавать, их наджо смывать! Кровью!"

[northener]

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

Тогда, возможно, конфликт с размером StringGrid1

Да нет. Всего лишь нужно было цикл делать до Length(headers) -1