Question

我正在设计3D扫雷。我想创建一个类来生成3D立方体（它将由多个立方体形状的立方体组成），它将与3D视口分开并与单元分开。我需要将Cube设置为运行时。我正在使用多维数组（数组的数组阵列）。这是我目前尝试这样做的代码

主要单位：

unit mineMainForm;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Rtti, System.Classes,
  System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.Types3D,
  FMX.Objects3D, mineControl;

type
  TForm2 = class(TForm3D)
    procedure Form3DCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  Controller : TController;

implementation

{$R *.fmx}

procedure TForm2.Form3DCreate(Sender: TObject);
begin
Controller.create(Form2,10);
end;

end.

问题所在的单位：

unit mineControl;

interface

uses
 FMX.Forms, FMX.Objects3D, sysutils;

Type
 tController = class
   private
     cubeArray : Array[1..10,1..10,1..10]  of TCube;
   public
    constructor create(Form : TForm3D; cubeCount :integer);
 end;

implementation

{ tController }

constructor tController.create(Form: TForm3D; cubeCount: integer); //cubeCount Max 10, min 1
var
  x, y, z : Integer;
begin
for x := 1 to cubeCount do
 begin
  for y := 1 to cubeCount do
   begin
    for z := 1 to cubeCount do
     begin
       CubeArray[x,y,z] := TCube.Create(Form);
        With CubeArray[x,y,z] do
         begin
           Visible := True;
           Position.X := 0;
           Position.Y := 0;
           Position.Z := 0;
           Parent := Form;
         end;
        end;
    end;
   end;
 end;

end.

我收到一个访问冲突错误，我尝试使用“mineField”作为AOwner运行创建。我怎么能解决这个问题，所以它可行，或者如果不起作用，我该怎么做？

我对编码很新（高中1年半），如果你认为我知道的很少，我会很感激。非常感谢。

错误：“模块'mine3D_p.exe'中地址00A0CFBB的访问冲突'。写入地址00000008”

Answer 1

问题是你在打电话

Controller.create(Form2,10);

而不是

Controller := TController.create(Form2,10);

Delphi Firemonkey：在运行时从另一个单元在3D视口上创建多维数据集

1 个答案: