针对你在uFleet单元创建数组属性、从uCubeF读取数据的需求，我先梳理下现有代码的小细节问题，再给出完整的可运行实现方案：

你的现有代码里，SetUnits的参数用了const value: array of array[1..3] of integer，这是开放数组参数，和你定义的AUnits动态数组类型不是一回事，直接用会导致类型不匹配的编译错误。我们需要让参数类型和属性类型保持一致，同时处理动态数组的赋值逻辑（因为Delphi动态数组是引用类型，要注意深拷贝和引用赋值的区别）。

完整实现代码 #

第一步：定义共享类型（可选但推荐） #

如果AUnits类型需要在uFleet和uCubeF中都使用，建议把它放在一个公共单元里，避免循环引用：

unit uCommon;

interface

type
  // 定义二维动态数组类型：外层是动态长度，内层是固定的1..3索引
  AUnits = array of array[1..3] of Integer;

implementation

end.

第二步：uFleet单元代码 #

unit uFleet;

interface

uses
  uCommon, uCubeF; // 引入公共类型单元和uCubeF

type
  TFleet = class(TDummy)
  private
    FUnits: AUnits;
    procedure SetUnits(const Value: AUnits);
  public
    property Units: AUnits read FUnits write SetUnits;
    // 封装从uCubeF读取数据的方法
    procedure LoadUnitsFromCubeF;
  end;

implementation

procedure TFleet.SetUnits(const Value: AUnits);
begin
  // 方案1：引用赋值（简单但共享内存，原数组修改会影响FUnits）
  // FUnits := Value;

  // 方案2：深拷贝（创建独立副本，推荐如果需要数据隔离）
  SetLength(FUnits, Length(Value));
  var I: Integer;
  for I := 0 to High(Value) do
  begin
    // 内层是固定长度数组，直接赋值即可完成拷贝
    FUnits[I] := Value[I];
  end;
end;

procedure TFleet.LoadUnitsFromCubeF;
var
  CubeSourceData: AUnits;
begin
  // 调用uCubeF中获取数组的方法，这里假设uCubeF有GetCubeFUnits函数
  CubeSourceData := uCubeF.GetCubeFUnits;
  // 赋值给属性，自动触发SetUnits
  Self.Units := CubeSourceData;
end;

end.

第三步：uCubeF单元代码 #

unit uCubeF;

interface

uses
  uCommon; // 引入公共类型单元

// 对外提供获取数组数据的函数
function GetCubeFUnits: AUnits;

implementation

function GetCubeFUnits: AUnits;
begin
  // 模拟生成测试数据：生成5组[1..3]的整数数组
  SetLength(Result, 5);
  var I: Integer;
  for I := 0 to High(Result) do
  begin
    Result[I][1] := I * 10 + 1;
    Result[I][2] := I * 10 + 2;
    Result[I][3] := I * 10 + 3;
  end;
end;

end.

关键知识点说明 #

• 类型一致性：必须让属性的类型（AUnits）和SetUnits的参数类型完全一致，否则编译会报错。用类型别名可以避免重复定义带来的类型不匹配问题。
• 动态数组的赋值逻辑：
  • 引用赋值：直接FUnits := Value，代码简单，但两个变量指向同一块内存，原数组的修改会同步影响FUnits。
  • 深拷贝：手动分配数组长度，遍历拷贝每个子元素，这样FUnits拥有独立的内存空间，数据不会被外部修改影响。
• 跨单元调用：通过引入对方单元（或共享公共单元），直接调用目标单元提供的获取数据的函数，再赋值给属性即可完成跨单元读取。

内容的提问来源于stack exchange，提问作者Laughin Coffin