《GOF设计模式》—原型(Prototype)—Delphi源码示例:浅拷贝和深拷贝

2024-09-06 14:58

本文主要是介绍《GOF设计模式》—原型(Prototype)—Delphi源码示例:浅拷贝和深拷贝,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!



示例:浅拷贝和深拷贝

说明:

Prototype模式最困难的部分在于正确实现Clone操作。例如,当所考虑的类已经存在时就难以新增Clone操作。当类内部包括一些不支持拷贝或有循环引用的对象时,实现克隆可能会很困难。

大多数语言都对克隆对象提供了一些支持。例如,Smalltalk提供了一个copy的实现,它被所有Object的子类所继承。C++提供了一个拷贝构造器。但这些措施并不能解决“浅拷贝和深拷贝”问题。也就是说,克隆一个对象是依次克隆它的实例变量呢,还是由克隆对象和原对象共享这些变量?

浅拷贝简单并且通常也足够了。C++中的缺省拷贝构造器实现按成员拷贝,这意味着在拷贝的和原来的对象之间是共享指针的。但克隆一个结构复杂的原型通常需要深拷贝(Deepcopy),因为复制对象和原对象必须相互独立。因此你必须保证克隆对象的构件也是对原型的构件的克隆。克隆迫使你决定如果所有东西都被共享了该怎么办。

如果系统中的对象提供了SaveLoad操作,那么你只需通过保存对象和立刻载入对象,就可以为Clone操作提供一个缺省实现。Save操作将该对象保存在内存缓冲区中,而Load则通过从该缓冲区中重构这个对象来创建一个复本。

代码:

unit uPrototypeClone2;

 

interface

 

uses

   Classes;

 

type

   TStateObject = class

   private

       FState: string;

   public

       //---

       property State: string read FState write FState;

   end;

 

   TBaseObject = class

   private

       FState: string;

   public

       function Clone: TBaseObject; virtual; abstract;

       function GetAllState: string; virtual;

       //---

       property State: string read FState write FState;

   end;

 

   TObjectA = class(TBaseObject)

   public

       function Clone: TBaseObject; override; //--浅拷贝

   end;

 

   TObjectB = class(TBaseObject)

   private

       FMyState: TStateObject;

       procedure SetMyState(const Value: TStateObject);

   public

       constructor Create;

       destructor Destroy; override;

       //---

       function Clone: TBaseObject; override; //--深拷贝

       function GetAllState: string; override;

       //---

       property MyState: TStateObject read FMyState write SetMyState;

   end;

 

   TObjectC = class(TBaseObject)

   private

       FMyState: TBaseObject;

       procedure SetMyState(const Value: TBaseObject);

   public

       constructor Create;

       destructor Destroy; override;

       //---

       function Clone: TBaseObject; override; //--深拷贝

       function GetAllState: string; override;

       //---

       property MyState: TBaseObject read FMyState write SetMyState;

   end;

 

   TClient = class

   private

       FPrototype: TBaseObject;

   public

       constructor Create(Prototype: TBaseObject);

       destructor Destroy; override;

       //---

       function CreateObject: TBaseObject;

   end;

 

implementation

 

function TBaseObject.GetAllState: string;

begin

   Result := FState;

end;

 

function TObjectA.Clone: TBaseObject;

var

   AObject: TObjectA;

begin

   AObject := TObjectA.Create;

   AObject.State := self.State;

   //---

   Result := AObject;

end;

 

constructor TObjectB.Create;

begin

   inherited;

   //---

   FMyState := nil;

end;

 

destructor TObjectB.Destroy;

begin

   if FMyState <> nil then

       FMyState.Free;

   //---

   inherited;

end;

 

function TObjectB.Clone: TBaseObject;

var

   AObject: TObjectB;

begin

   AObject := TObjectB.Create;

   AObject.State := self.State;

   if self.MyState <> nil then

   begin

       AObject.MyState := TStateObject.Create;

       AObject.MyState.State := self.MyState.State;

   end;

   //---

   Result := AObject;

end;

 

function TObjectB.GetAllState: string;

begin

   if FMyState <> nil then

       Result := FState + FMyState.State

   else

       Result := FState;

end;

 

procedure TObjectB.SetMyState(const Value: TStateObject);

begin

   if assigned(FMyState) then

       FMyState.Free;

   FMyState := Value;

end;

 

constructor TObjectC.Create;

begin

   inherited;

   //---

   FMyState := nil;

end;

 

destructor TObjectC.Destroy;

begin

   if assigned(FMyState) then

       FMyState.Free;

   //---

   inherited;

end;

 

function TObjectC.Clone: TBaseObject;

var

   AObject: TObjectC;

begin

   AObject := TObjectC.Create;

   AObject.State := self.State;

   if self.MyState <> nil then

       AObject.MyState := self.MyState.Clone;

   //---

   Result := AObject;

end;

 

function TObjectC.GetAllState: string;

begin

   if assigned(FMyState) then

       Result := FState + FMyState.GetAllState

   else

       Result := FState;

end;

 

procedure TObjectC.SetMyState(const Value: TBaseObject);

begin

   if assigned(FMyState) then

       FMyState.Free;

   FMyState := Value;

end;

 

constructor TClient.Create(Prototype: TBaseObject);

begin

   FPrototype := Prototype;

end;

 

destructor TClient.Destroy;

begin

   FPrototype.Free;

   //---

   inherited;

end;

 

function TClient.CreateObject: TBaseObject;

begin

   Result := FPrototype.Clone;

end;

 

end.

 

 

procedure TForm1.Button1Click(Sender: TObject);

var

   APrototype,AObject: TBaseObject;

   AClient: TClient;

begin

   APrototype := TObjectA.Create;

   APrototype.State := 'Prototype A';

   //---

   AClient := TClient.Create(APrototype);

   try

       AObject := AClient.CreateObject;

       showmessage(AObject.GetAllState);

       AObject.Free;

   finally

       AClient.Free;

   end;

end;

 

procedure TForm1.Button2Click(Sender: TObject);

var

   APrototype: TObjectB;

   AObject: TBaseObject;

   AClient: TClient;

begin

   APrototype := TObjectB.Create;

   with APrototype do

   begin

       State := 'Object B';

       MyState := TStateObject.Create;

       MyState.State := ' 123';

   end;

   //---

   AClient := TClient.Create(APrototype);

   try

       AObject := AClient.CreateObject;

       showmessage(AObject.GetAllState);

       AObject.Free;

   finally

       AClient.Free;

   end;

end;

 

procedure TForm1.Button3Click(Sender: TObject);

var

   APrototype: TObjectC;

   AObject: TBaseObject;

   AClient: TClient;

begin

   APrototype := TObjectC.Create;

   with APrototype do

   begin

       APrototype.State := 'Object C';

       APrototype.MyState := TObjectA.Create;

       APrototype.MyState.State := ' 123';

   end;

   //---

   AClient := TClient.Create(APrototype);

   try

       AObject := AClient.CreateObject;

       try

           showmessage(AObject.GetAllState);

           //---

           with TObjectC(AObject) do

           begin

               if (MyState = nil) or (MyState = APrototype.MyState) then

                   showmessage('浅拷贝 AObject.MyState为引用')

               else

                   showmessage('深拷贝 AObject.MyState为新对象');

           end;

       finally

           AObject.Free;

       end;

   finally

       AClient.Free;

   end;

end;

这篇关于《GOF设计模式》—原型(Prototype)—Delphi源码示例:浅拷贝和深拷贝的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!



http://www.chinasem.cn/article/1142325

相关文章

C++中零拷贝的多种实现方式

《C++中零拷贝的多种实现方式》本文主要介绍了C++中零拷贝的实现示例,旨在在减少数据在内存中的不必要复制,从而提高程序性能、降低内存使用并减少CPU消耗,零拷贝技术通过多种方式实现,下面就来了解一下... 目录一、C++中零拷贝技术的核心概念二、std::string_view 简介三、std::stri

OpenCV实现实时颜色检测的示例

《OpenCV实现实时颜色检测的示例》本文主要介绍了OpenCV实现实时颜色检测的示例,通过HSV色彩空间转换和色调范围判断实现红黄绿蓝颜色检测,包含视频捕捉、区域标记、颜色分析等功能,具有一定的参考... 目录一、引言二、系统概述三、代码解析1. 导入库2. 颜色识别函数3. 主程序循环四、HSV色彩空间

C++ 函数 strftime 和时间格式示例详解

《C++函数strftime和时间格式示例详解》strftime是C/C++标准库中用于格式化日期和时间的函数,定义在ctime头文件中,它将tm结构体中的时间信息转换为指定格式的字符串,是处理... 目录C++ 函数 strftipythonme 详解一、函数原型二、功能描述三、格式字符串说明四、返回值五

LiteFlow轻量级工作流引擎使用示例详解

《LiteFlow轻量级工作流引擎使用示例详解》:本文主要介绍LiteFlow是一个灵活、简洁且轻量的工作流引擎,适合用于中小型项目和微服务架构中的流程编排,本文给大家介绍LiteFlow轻量级工... 目录1. LiteFlow 主要特点2. 工作流定义方式3. LiteFlow 流程示例4. LiteF

MyBatis ResultMap 的基本用法示例详解

《MyBatisResultMap的基本用法示例详解》在MyBatis中,resultMap用于定义数据库查询结果到Java对象属性的映射关系,本文给大家介绍MyBatisResultMap的基本... 目录MyBATis 中的 resultMap1. resultMap 的基本语法2. 简单的 resul

Mybatis Plus Join使用方法示例详解

《MybatisPlusJoin使用方法示例详解》:本文主要介绍MybatisPlusJoin使用方法示例详解,本文通过实例代码给大家介绍的非常详细,对大家的学习或工作具有一定的参考借鉴价值,... 目录1、pom文件2、yaml配置文件3、分页插件4、示例代码:5、测试代码6、和PageHelper结合6

MySQL JSON 查询中的对象与数组技巧及查询示例

《MySQLJSON查询中的对象与数组技巧及查询示例》MySQL中JSON对象和JSON数组查询的详细介绍及带有WHERE条件的查询示例,本文给大家介绍的非常详细,mysqljson查询示例相关知... 目录jsON 对象查询1. JSON_CONTAINS2. JSON_EXTRACT3. JSON_TA

使用SpringBoot整合Sharding Sphere实现数据脱敏的示例

《使用SpringBoot整合ShardingSphere实现数据脱敏的示例》ApacheShardingSphere数据脱敏模块,通过SQL拦截与改写实现敏感信息加密存储,解决手动处理繁琐及系统改... 目录痛点一:痛点二:脱敏配置Quick Start——Spring 显示配置:1.引入依赖2.创建脱敏

SpringBoot 中 CommandLineRunner的作用示例详解

《SpringBoot中CommandLineRunner的作用示例详解》SpringBoot提供的一种简单的实现方案就是添加一个model并实现CommandLineRunner接口,实现功能的... 目录1、CommandLineRunnerSpringBoot中CommandLineRunner的作用

Java死锁问题解决方案及示例详解

《Java死锁问题解决方案及示例详解》死锁是指两个或多个线程因争夺资源而相互等待,导致所有线程都无法继续执行的一种状态,本文给大家详细介绍了Java死锁问题解决方案详解及实践样例,需要的朋友可以参考下... 目录1、简述死锁的四个必要条件:2、死锁示例代码3、如何检测死锁?3.1 使用 jstack3.2