2. 程式人生 > >淺拷貝與深度拷貝(原型模式)

淺拷貝與深度拷貝(原型模式)

阿新 • • 發佈：2019-01-01

Delphi的VCL從TPersistent開始支援RTTI(RuntimeTypeInfo)執行時型別資訊,它是通過{$M+}編譯指令提供了RTTI的功能.M開啟以後,Delphi在編譯該物件時,會把物件的型別資訊編譯進可執行檔案,這樣在執行時就可以動態地獲得物件的屬性和方法等資訊.因為所有的VCL視覺化元件都是從TPersistent派生的,因此可以將元件資訊儲存到dfm也可以動態載入.

Delphi還定義了一個虛方法Assign,

procedure Assign(Source:TPersistent);virtual;

這個方法就是用來把源物件屬性複製到目標物件中的.預設的TPersistent物件的Assign方法只是簡單的呼叫源物件的AssignTo方法來複制屬性,而TPersistent的AssignTo方法只是丟擲一個異常,沒有實現有意義的功能,那麼派生自TPersistent的物件要想提供克隆的功能都需要過載TPersistent的Assign或AssignTo來實現自定義的複製功能.

獲取類的屬性列表:要引用TypInfo//rtti,contnrs,classes,sysutils;//{$M+}要開啟.

procedure GetPropNames(AObject:TObject;var List:TStringList);
var
  I,Count:Integer;
  PropList:PPropList;//陣列型指標,陣列又是指向屬性的紀錄型資訊的指標型陣列.
  PKinds:TTypeKinds;//型別資訊的集合
begin
  List.Clear;
  PKinds := [tkUnknow,tkInteger,tkChar,tkEnumeration,tkFloat,tkString,tkSet,tkClass,tkMethod,tkWChar,tkLString,tkWString,
tkVariant,tkArray,tkRecord,tkInterface,tkInt64,tkDynArray];
  Count := GetPropList(AObject.ClassInfo,pKinds,nil);
  GetMem(PropList,Count*SizeOf(Pointer));
  GetPropList(AObject.ClassInfo,PKinds,PropList);
  for I :=0 to count-1 do
  List.Add(PropList^[i].Name);
  FreeMem(PropList,Count*SizeOf(Pointer));
end;
 
procedure CloneObject(SrcObj,DesObj:TPersistent);
var
   NameList:TStringList;
  I:Integer;
  V:Variant;
begin
  if srcObj.ClassName<>DesObj.ClassName then
  raise Exception.Create('不同型別的物件,無法克隆');
  if (not Assigned(SrcObje)) or not (Assigned(DesObj)) then
  raise Exception.Create('物件不能為空');
  NameList := TStringlist.create;
  GetPropNames(SrcObj,NameList);
 try
   for I:= 0 to Namelist.Count-1 do
  begin
      V:= GetPropValue(SrcObj,Namelist.Strings[I]);
     SetPropValue(DesObj,NameList.Strings[I],V);
finally
  Namelist.free;
end;
end;

其中GetPropName函式呼叫Delphi的TypeInfo單元的Rtti函式獲得要克隆物件的保護級別為Published的屬性名稱字串列表.而CloneObject則遍歷物件的屬性列表,使用RTTI函式GetPropValue通過屬性名獲得物件的屬性值,然後通過RTTI函式的SetPropValue將獲得源物件值賦值給目標物件.注意RTTI函式只對Published屬性有效,其它保護級別的屬性無效.

上面的物件複製函式對於複合的物件如下級物件的TreeView,TStrings是無效的,對於這類物件還必須手工完成.procedure TStrings.Assign(Source:TPersistent);

begin
  if Source is TStrings then
  begin
     Beginupdate;
    try
      Clear;
      FDefined:=TStrings(Source).FDefined;
      FNameValueSeparator := TStrings(Source).FNameValueSeparator;
      FQuoteChar := TStrings(Source).FQuoteChar;
      FDelimiter :=  TStrings(Source).FDelimiter;
      AddStrings(TStrings(Source));
    finally
      EndUpdate;
    end;
   Exit;
  end;
  inherited Assign(Source);
end;

delphi的Assign方法除了可以實現同樣型別物件的克隆之外,還可以實現不同物件之間的克隆,最典型的就是剪貼簿TClipBoard了,Windows的剪貼簿可以存放很不同型別的資料,如文字,點陣圖,圖元等,為了實現將剪貼簿中的點陣圖資料直接複製給對應的TBitmap或者TMetafile類,VCL過載了TClipboard類的AssignTo方法來實現將資料複製給不同的物件:

procedure TClipboard.AssignTo(Dest: TPersistent);
begin
  if Dest is TPicture then
     AssignToPicture(TPicture(Dest))
  else if Dest is TBitmap then
     AssignToBitmap(TBitmap(Dest))
  else if Dest is TMetafile then
     AssignToMetafile(TMetafile(Dest))
  else inherited AssignTo(Dest);
end;
procedure TClipboard.AssignToBitmap(Dest: TBitmap);
var
  Data: THandle;
  Palette: HPALETTE;
begin
  Open;
  try
     Data := GetClipboardData(CF_BITMAP);
     Palette := GetClipboardData(CF_PALETTE);
     Dest.LoadFromClipboardFormat(CF_BITMAP, Data, Palette);
  finally
     Close;
  end;
end;
procedure TClipboard.AssignToMetafile(Dest: TMetafile);
var
//省略…
begin
//省略…
end;
procedure TClipboard.AssignToPicture(Dest: TPicture);
var
//…
Begin
  //省略…
end;

 Delphi的VCL從TPersistent開始支援RTTI(RuntimeTypeInfo)執行時型別資訊,它是通過{$M+}編譯指令提供了RTTI的功能.M開啟以後,Delphi在編譯該物件時,會把物件的型別資訊編譯進可執行檔案,這樣在執行時就可以動態地獲得物件的屬性和方法等資訊.因為所有的VCL視覺化元件都是從TPersistent派生的,因此可以將元件資訊儲存到dfm也可以動態載入.
Delphi還定義了一個虛方法Assign,procedure Assign(Source:TPersistent);virtual;
這個方法就是用來把源物件屬性複製到目標物件中的.預設的TPersistent物件的Assign方法只是簡單的呼叫源物件的AssignTo方法來複制屬性,而TPersistent的AssignTo方法只是丟擲一個異常,沒有實現有意義的功能,那麼派生自TPersistent的物件要想提供克隆的功能都需要過載TPersistent的Assign或AssignTo來實現自定義的複製功能.

獲取類的屬性列表:要引用TypInfo//rtti,contnrs,classes,sysutils;//{$M+}要開啟.

procedure GetPropNames(AObject:TObject;var List:TStringList);
var
  I,Count:Integer;
  PropList:PPropList;//陣列型指標,陣列又是指向屬性的紀錄型資訊的指標型陣列.
  PKinds:TTypeKinds;//型別資訊的集合
begin
  List.Clear;
  PKinds := [tkUnknow,tkInteger,tkChar,tkEnumeration,tkFloat,tkString,tkSet,tkClass,tkMethod,tkWChar,tkLString,tkWString,
tkVariant,tkArray,tkRecord,tkInterface,tkInt64,tkDynArray];
  Count := GetPropList(AObject.ClassInfo,pKinds,nil);
  GetMem(PropList,Count*SizeOf(Pointer));
  GetPropList(AObject.ClassInfo,PKinds,PropList);
  for I :=0 to count-1 do
  List.Add(PropList^[i].Name);
  FreeMem(PropList,Count*SizeOf(Pointer));
end;
 
procedure CloneObject(SrcObj,DesObj:TPersistent);
var
   NameList:TStringList;
  I:Integer;
  V:Variant;
begin
  if srcObj.ClassName<>DesObj.ClassName then
  raise Exception.Create('不同型別的物件,無法克隆');
  if (not Assigned(SrcObje)) or not (Assigned(DesObj)) then
  raise Exception.Create('物件不能為空');
  NameList := TStringlist.create;
  GetPropNames(SrcObj,NameList);
 try
   for I:= 0 to Namelist.Count-1 do
  begin
      V:= GetPropValue(SrcObj,Namelist.Strings[I]);
     SetPropValue(DesObj,NameList.Strings[I],V);
finally
  Namelist.free;
end;
end;


其中GetPropName函式呼叫Delphi的TypeInfo單元的Rtti函式獲得要克隆物件的保護級別為Published的屬性名稱字串列表.而CloneObject則遍歷物件的屬性列表,使用RTTI函式GetPropValue通過屬性名獲得物件的屬性值,然後通過RTTI函式的SetPropValue將獲得源物件值賦值給目標物件.注意RTTI函式只對Published屬性有效,其它保護級別的屬性無效.
上面的物件複製函式對於複合的物件如下級物件的TreeView,TStrings是無效的,對於這類物件還必須手工完成.
procedure TStrings.Assign(Source:TPersistent);
begin
  if Source is TStrings then
  begin
     Beginupdate;
    try
      Clear;
      FDefined:=TStrings(Source).FDefined;
      FNameValueSeparator := TStrings(Source).FNameValueSeparator;
      FQuoteChar := TStrings(Source).FQuoteChar;
      FDelimiter :=  TStrings(Source).FDelimiter;
      AddStrings(TStrings(Source));
    finally
      EndUpdate;
    end;
   Exit;
  end;
  inherited Assign(Source);
end;

delphi的Assign方法除了可以實現同樣型別物件的克隆之外,還可以實現不同物件之間的克隆,最典型的就是剪貼簿TClipBoard了,Windows的剪貼簿可以存放很不同型別的資料,如文字,點陣圖,圖元等,為了實現將剪貼簿中的點陣圖資料直接複製給對應的TBitmap或者TMetafile類,VCL過載了TClipboard類的AssignTo方法來實現將資料複製給不同的物件:

procedure TClipboard.AssignTo(Dest: TPersistent);
begin
  if Dest is TPicture then
     AssignToPicture(TPicture(Dest))
  else if Dest is TBitmap then
     AssignToBitmap(TBitmap(Dest))
  else if Dest is TMetafile then
     AssignToMetafile(TMetafile(Dest))
  else inherited AssignTo(Dest);
end;
procedure TClipboard.AssignToBitmap(Dest: TBitmap);
var
  Data: THandle;
  Palette: HPALETTE;
begin
  Open;
  try
     Data := GetClipboardData(CF_BITMAP);
     Palette := GetClipboardData(CF_PALETTE);
     Dest.LoadFromClipboardFormat(CF_BITMAP, Data, Palette);
  finally
     Close;
  end;
end;
procedure TClipboard.AssignToMetafile(Dest: TMetafile);
var
//省略…
begin
//省略…
end;
procedure TClipboard.AssignToPicture(Dest: TPicture);
var
//…
Begin
  //省略…
end;


相關推薦

淺拷貝與深度拷貝(原型模式)

Delphi的VCL從TPersistent開始支援RTTI(RuntimeTypeInfo)執行時型別資訊,它是通過{$M+}編譯指令提供了RTTI的功能.M開啟以後,Delphi在編譯該物件時,會把物件的型別資訊編譯進可執行檔案,這樣在執行時就可以動態地獲得物件的屬性和

iOS 深度理解淺拷貝與深拷貝

在工作中如果不能正確理解淺拷貝與深拷貝就會造成不想改變的值被改變了，出現了再次使用陣列時沒有資料，顯示的值不是我們想要的等一些問題。只有真正理解了淺拷貝與深拷貝才能使我們在開發中事半功倍，廢話少說，程式碼走起~~~ 定義理解 淺拷貝：拷貝後只是指向了該物

python幾個面試題目：單例模式，淺拷貝與深拷貝

主要參考git上一篇面試題目，連結如下https://github.com/taizilongxu/interview_python#2-python%E4%B8%AD%E7%9A%84%E5%85%83%E7%B1%BBmetaclass 實現單例模式，對每種方式新增更詳

Python 直接賦值、淺拷貝和深度拷貝解析

log epc uno amp 技術分享 example 內部 clas color 直接賦值：其實就是對象的引用（別名）。 淺拷貝(copy)：拷貝父對象，不會拷貝對象的內部的子對象。 深拷貝(deepcopy)： copy 模塊的 deepcopy

JS的淺拷貝與深拷貝

code 有一個 實現 一個 turn fun pan xtend array 淺拷貝 //這樣的拷貝有一個問題。那就是，如果父對象的屬性等於數組或另一個對象，//那麽實際上，子對象獲得的只是一個內存地址，而不是真正拷貝，因此存在父對象被篡改的可能。 　function

小tips：JS之淺拷貝與深拷貝

obj fault tps all function spa html 存在 || 淺拷貝： function extendCopy(p) { 　var c = {}; 　for (var i in p) { 　　　c[i] = p[i]; 　} 　retu

Python 列表淺拷貝與深拷貝

deep log es2017 .com com python 列表 imp http bsp 淺拷貝 shallow copy 和深拷貝 deep copy list.copy() 淺拷貝：復制此列表(只復制一層，不會復制深層對象) 等同於 L[:] 舉例： 淺拷貝： 　

Python 直接賦值、淺拷貝和深度拷貝全解析

ima img 引入 對象的引用 print function 引用 輸出結果 ons 直接賦值：其實就是對象的引用（別名）。 淺拷貝(copy)：拷貝父對象，不會拷貝對象的內部的子對象。 深拷貝(deepcopy)： copy 模塊的 deepcopy 方法

python中的淺拷貝與深拷貝

post 相同 pre body python and aos deep light 淺拷貝可以拿丈夫與媳婦公用一張銀行卡來舉例 # python >>> husband = [‘liang‘,123,[10000,6000]] #丈夫的銀行卡信息

python 淺拷貝與深拷貝

python 變量 淺拷貝 深拷貝 python變量在內存中是這樣存儲的： 在python中，一切都是對象，對象的存儲是引用存儲，存儲的只是變量的值所在的內存地址，而不是這個變量的值本身。 如果對值進行修改，其實是在內存中新創建一個值，把變量指向這個值的地址可以看出地址發生了改變如果是兩個值相

React之淺拷貝與深拷貝

pan attr OS 角度 new 框架 AR 格式 通過 最近發現的一個bug讓我從react框架角度重新復習了一遍淺拷貝與深拷貝。 淺拷貝，就是兩個變量都是指向一個地址，改變了一個變量，那另一個變量也隨之改變。這就是淺拷貝帶來的副作用，兩個變

淺拷貝與深拷貝的實現方式、區別；deepcopy如果你來設計，如何實現(一)

.net cal ict idt 變更 tmp png nbsp ocp 淺拷貝與深拷貝的實現方式、區別；deepcopy如果你來設計，如何實現； copy淺拷貝：沒有拷貝子對象，所以原始數據改變，子對象改變 deepcopy深拷貝：包含對象裏面的子對象的拷貝，所以原始對

Python直接賦值、淺拷貝和深度拷貝解析

rabl iterable bject nes 返回值 元祖 列表 深度 拷貝 ython 文件 writelines() 方法用於向文件中寫入一序列的字符串。 這一序列字符串可以是由叠代對象產生的，如一個字符串列表。 換行需要制定換行符 \n。 語法 writelines

Perl的淺拷貝和深度拷貝

-i hal 層次 sha 復雜 實現 圖片 概念 階段 首先是深、淺拷貝的概念： 淺拷貝：shallow copy，只拷貝第一層的數據。Perl中賦值操作就是淺拷貝 深拷貝：deep copy，遞歸拷貝所有層次的數據，Perl中Clone模塊的clone方法，以及St

Python 賦值、淺拷貝和深度拷貝

前言： 在建立二維陣列時，遇到了list * n—>n shallow copies of list concatenated, n個list的淺拷貝的連線的情況 賦值、淺拷貝和深度拷貝 賦值：是物件的引用 淺拷貝(copy)：拷貝父物件，不會

java List復制：淺拷貝與深拷貝

zab row 實例 ets span for deepcopy dex 就是 Java的拷貝可以分為三種：淺拷貝(Shallow Copy)、深拷貝(Deep Copy)、延遲拷貝(Lazy Copy)。 在java中除了基本數據類型之外（int,long,short等）

OpenCV中影象的淺拷貝與深拷貝 = copy clone區別

下面介紹三種OpenCV複製影象的方法： 方法1、過載運算子= 使用過載運算子“=”進行的拷貝是一種淺拷貝，雖然它們有不同的矩陣頭，但是二者共享相同的記憶體空間，二者內容相互關聯，任何一個變數變化的同時另一個變數也隨之改變。 /*OpenCV v1版本*/ IplImage im

Python中賦值、淺拷貝與深拷貝的區別

賦值，其實就是物件的引用，對新物件的如何修改都會影響到原始物件。 Python中有兩種拷貝操作：淺拷貝和深拷貝。 copy.copy(x):返回x的淺拷貝。 copy.deepcopy(x):返回x的深拷貝。 那麼都是拷貝，淺拷貝和深拷貝有什麼不同嗎？ 淺

JavaScript淺拷貝與深拷貝

JavaScript中的資料型別 要理解深拷貝和淺拷貝，首先需要理解JavaScript的資料型別。可分成兩類： 1. 基本資料型別：包括Null、Undefined、Boolean、Number、String、Symbol（ES6新增）。基本型別的變數存放在棧區中，複製變數時會開

python3中的淺拷貝與深拷貝

import copy def f(x): return x a = [["a", "b"],1,2,3, "d"] b = copy.copy(a) c = copy.deepcopy(a) d = a.copy() e = f(a) a[0].append("c") a[1] = 0 a