Нарушение прав доступа с помощью процедуры OnDrawCell в delphi - PullRequest
0 голосов
/ 16 февраля 2019

Я довольно новичок в программировании, и у меня возникли проблемы с нарушением прав доступа в процедуре DrawCell ниже.

Я создаю лабиринт, и каждая ячейка в лабиринте 2D-массива имеет логический атрибут, называемый "стена".Когда программа запускается, все ячейки в массиве устанавливаются как «Стена»

нарушение доступа происходит в строке

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;
...