delphi – 具有R1：= R2的记录的深度拷贝,或者是否有很好的方法来实现NxM矩阵与记录？

我正在实现一个N x M矩阵(类)与一个记录和一个内部动态数组,如下所示.

TMat = record
public     
  // contents
  _Elem: array of array of Double;

  //
  procedure SetSize(Row,Col: Integer);

  procedure Add(const M: TMat);
  procedure Subtract(const M: TMat);
  function Multiply(const M: TMat): TMat;
  //..
  class operator Add(A,B: TMat): TMat;
  class operator Subtract(A,B: TMat): TMat;
  //..
  class operator Implicit(A: TMat): TMat; // call assign inside proc.
                                          // <--Self Implicit(which isn't be used in D2007,got compilation error in DelphiXE)

  procedure Assign(const M: TMat); // copy _Elem inside proc.
                                   // <-- I don't want to use it explicitly.
end;

我选择一个记录,因为我不想创建/自由/分配来使用它.

但是使用动态数组,不能(M1)= M2而不是M1.Assign(M2)复制值.

我尝试声明自我隐式转换方法,但不能用于M1：= M2.

(Implicit(const pA：PMat))：TMat和M1：= @ M2工作,但它是非常丑陋和不可读的..)

有没有办法挂钩记录的任务？

还是有建议用记录来实现N×M矩阵？

提前致谢.

编辑：

我用Barry的方法实施如下,确认工作正常.

type
  TDDArray = array of array of Double;

  TMat = record
  private
     procedure copyElementsIfOthersRefer;
  public
    _Elem: TDDArray;
    _FRefCounter: IInterface;
   ..
  end;

procedure TMat.SetSize(const RowSize,ColSize: Integer);
begin
  SetLength(_Elem,RowSize,ColSize);

  if not Assigned(_FRefCounter) then
    _FRefCounter := TInterfacedobject.Create;
end;

procedure TMat.Assign(const Source: TMat);
var
  I: Integer;
  SrcElem: TDDArray;
begin
  SrcElem := Source._Elem; // Allows self assign

  SetLength(Self._Elem,0);
  SetLength(Self._Elem,Length(SrcElem));

  for I := 0 to Length(SrcElem) - 1 do
  begin
    SetLength(Self._Elem[I],Length(SrcElem[I]));
    Self._Elem[I] := copy(SrcElem[I]);
  end;
end;

procedure TMat.copyElementsIfOthersRefer;
begin
  if (_FRefCounter as TInterfacedobject).RefCount > 1 then
  begin
    Self.Assign(Self); // Self copy
  end;
end;

我同意这是不高效的.只需使用分配与纯记录绝对更快.

但它是非常方便,更可读(有趣的:-)

我认为它对于光计算或预生产原型很有用.不是吗

EDIT2：

kibab给出函数获取动态数组本身的引用计数.

Barry的解决方案更加独立于内部的内容,也许对即将到来的64位编译器没有任何修改,但在这种情况下,我更喜欢kibab的简单性和效率.谢谢.

TMat = record
  private
     procedure copyElementsIfOthersRefer;
  public
    _Elem: TDDArray;
   ..
  end;

procedure TMat.SetSize(const RowSize,ColSize);
end;    

function GetDynArrayRefCnt(const ADynArray): Longword;
begin
  if Pointer(ADynArray) = nil then
    Result := 1 {or 0,depending what you need}
  else
    Result := PLongword(Longword(ADynArray) - 8)^;
end;

procedure TMat.copyElementsIfOthersRefer;
begin
  if GetDynArrayRefCnt(_Elem) > 1 then
    Self.Assign(Self);
end;

解决方法

您可以使用记录中的接口字段引用来确定数组是否由多个记录共享：只需检查接口后面的对象的引用计数,并且知道数组中的数据是共享的.这样,您可以在修改后懒洋洋地复制,但是当矩阵未被修改时仍然使用数据共享.