delphi – 具有R1:= R2的记录的深度拷贝,或者是否有很好的方法
发布时间:2020-12-15 04:29:01 所属栏目:大数据 来源:网络整理
导读:我正在实现一个N x M矩阵(类)与一个记录和一个内部动态数组,如下所示. TMat = recordpublic // contents _Elem: array of array of Double; // procedure SetSize(Row,Col: Integer); procedure Add(const M: TMat); procedure Subtract(const M: TMat); fun
我正在实现一个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; 解决方法
您可以使用记录中的接口字段引用来确定数组是否由多个记录共享:只需检查接口后面的对象的引用计数,并且知道数组中的数据是共享的.这样,您可以在修改后懒洋洋地复制,但是当矩阵未被修改时仍然使用数据共享.
(编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |