0

我对编程很陌生,在下面的 DrawCell 过程中遇到访问冲突问题。

我正在创建一个迷宫,2D Array 迷宫中的每个单元格都有一个名为“wall”的布尔属性。程序启动时,数组中的所有单元格都设置为“墙”

访问冲突发生在该行

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

0 回答 0