Нарушение прав доступа с помощью процедуры 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;

0 ответов

Другие вопросы по тегам