Нарушение прав доступа с помощью процедуры OnDrawCell в delphi
Я довольно новичок в программировании, и у меня возникли проблемы с нарушением прав доступа в процедуре DrawCell ниже.
Я создаю лабиринт, и каждая ячейка в лабиринте 2D Array имеет логический атрибут, называемый "стена". Когда программа запускается, все ячейки в массиве устанавливаются как "Стена"
нарушение доступа происходит на линии
if maze[ACol, ARow].Wall = true then
procedure TfrmMazeGame.StrGridMazeDrawCell(Sender: TObject; ACol, ARow:
integer; Rect: TRect; State: TGridDrawState);
begin
if maze[ACol, ARow].Wall = true then
begin
StrGridMaze.canvas.Brush.Color := clGreen
end
else if maze[ACol, ARow].Wall = false then
StrGridMaze.canvas.Brush.Color := clblue;
StrGridMaze.canvas.fillrect(Rect);
end;