delphi - delphi中的OnDrawCell过程访问冲突
问题描述
我对编程很陌生,在下面的 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;
解决方案
推荐阅读
- azure - 在禁用代理的情况下加载多级嵌套导航和集合属性
- python-3.x - 用python编写的aws lambda to mysql不会返回最新数据,直到我更改某些内容并再次保存代码
- sql-update - 如何更新红移列:简单的文本替换
- gcc - 如何在 gcc 中禁用 -mcall-linux
- python - pyodbc 无法连接到数据库,但 IBM Data Studio 使用相同的凭据连接
- r - foreach 循环没有结果
- swift - 基于孙值的 Firebase 写入 (Swift)
- robotframework - 如何在 Robot 框架中用两行代码编写代码
- c# - RabbitMQ 公开的公钥中包含的证书链
- angular - 在 Angular 6 中使用 SSL 时如何配置 TLS?