我对编程很陌生,在下面的 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;