《GOF设计模式》—原型(Prototype)—Delphi源码示例:原型接口

2024-09-06 14:58

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



示例:原型接口

说明:

1)、定义

用原型实例指定要创建对象的种类,并且通过拷贝这些原型实例创建新的同类对象。

2)、结构

原型

Prototype:抽象原型,声明一个克隆自身的接口。

ConcretePrototype:具体原型,实现一个克隆自身的操作。

客户端

Client:让一个原型克隆自身从而创建一个新的对象。

代码:

unit uPrototype;

 

interface

 

type

   TPrototype = class

   private

       FState: string;

   public

       function Clone: TPrototype; virtual; abstract;

       //---

       property State: string read FState write FState;

   end;

   TConcretePrototype1 = class(TPrototype)

   private

       function Copy: TConcretePrototype1;

   public

       function Clone: TPrototype; override;

   end;

   TConcretePrototype2 = class(TPrototype)

   private

       function Copy: TConcretePrototype2;

   public

       function Clone: TPrototype; override;

   end;

 

   TClient = class

   private

       FPrototype: TPrototype;

   public

       constructor Create(Prototype: TPrototype);

       destructor Destroy; override;

       //---

       function Opteration: TPrototype;

   end;

 

implementation

 

function TConcretePrototype1.Clone: TPrototype;

begin

   Result := self.Copy;

end;

 

function TConcretePrototype1.Copy: TConcretePrototype1;

begin

   Result := TConcretePrototype1.Create;

   Result.State := self.State;

end;

 

function TConcretePrototype2.Clone: TPrototype;

begin

   Result := self.Copy;

end;

 

function TConcretePrototype2.Copy: TConcretePrototype2;

begin

   Result := TConcretePrototype2.Create;

   Result.State := self.State;

end;

 

constructor TClient.Create(Prototype: TPrototype);

begin

   FPrototype := Prototype;

end;

 

destructor TClient.Destroy;

begin

   FPrototype.Free;

   //---

   inherited;

end;

 

function TClient.Opteration: TPrototype;

var

   p: TPrototype;

begin

   p := FPrototype.Clone;

   Result := p;

end;

 

end.

 

procedure TForm1.Button3Click(Sender: TObject);

var

   Prototype1: TPrototype;

   Client:TClient;

   AItem: TPrototype;

begin

   {Prototype1 := TConcretePrototype1.Create;

   Prototype1.State := 'Prototype1'; }

   //---

   Prototype1 := TConcretePrototype2.Create;

   Prototype1.State := 'Prototype2';

   //---

   Client := TClient.Create(Prototype1);

   try

       AItem := Client.Opteration;

       showmessage(AItem.State);

       AItem.Free;

   finally

       Client.Free;

   end;

end;

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



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

相关文章

JAVA智听未来一站式有声阅读平台听书系统小程序源码

智听未来,一站式有声阅读平台听书系统 🌟 开篇:遇见未来,从“智听”开始 在这个快节奏的时代,你是否渴望在忙碌的间隙,找到一片属于自己的宁静角落?是否梦想着能随时随地,沉浸在知识的海洋,或是故事的奇幻世界里?今天,就让我带你一起探索“智听未来”——这一站式有声阅读平台听书系统,它正悄悄改变着我们的阅读方式,让未来触手可及! 📚 第一站:海量资源,应有尽有 走进“智听

在JS中的设计模式的单例模式、策略模式、代理模式、原型模式浅讲

1. 单例模式(Singleton Pattern) 确保一个类只有一个实例,并提供一个全局访问点。 示例代码: class Singleton {constructor() {if (Singleton.instance) {return Singleton.instance;}Singleton.instance = this;this.data = [];}addData(value)

Java ArrayList扩容机制 (源码解读)

结论:初始长度为10,若所需长度小于1.5倍原长度,则按照1.5倍扩容。若不够用则按照所需长度扩容。 一. 明确类内部重要变量含义         1:数组默认长度         2:这是一个共享的空数组实例,用于明确创建长度为0时的ArrayList ,比如通过 new ArrayList<>(0),ArrayList 内部的数组 elementData 会指向这个 EMPTY_EL

如何在Visual Studio中调试.NET源码

今天偶然在看别人代码时,发现在他的代码里使用了Any判断List<T>是否为空。 我一般的做法是先判断是否为null,再判断Count。 看了一下Count的源码如下: 1 [__DynamicallyInvokable]2 public int Count3 {4 [__DynamicallyInvokable]5 get

工厂ERP管理系统实现源码(JAVA)

工厂进销存管理系统是一个集采购管理、仓库管理、生产管理和销售管理于一体的综合解决方案。该系统旨在帮助企业优化流程、提高效率、降低成本,并实时掌握各环节的运营状况。 在采购管理方面,系统能够处理采购订单、供应商管理和采购入库等流程,确保采购过程的透明和高效。仓库管理方面,实现库存的精准管理,包括入库、出库、盘点等操作,确保库存数据的准确性和实时性。 生产管理模块则涵盖了生产计划制定、物料需求计划、

Spring 源码解读:自定义实现Bean定义的注册与解析

引言 在Spring框架中,Bean的注册与解析是整个依赖注入流程的核心步骤。通过Bean定义,Spring容器知道如何创建、配置和管理每个Bean实例。本篇文章将通过实现一个简化版的Bean定义注册与解析机制,帮助你理解Spring框架背后的设计逻辑。我们还将对比Spring中的BeanDefinition和BeanDefinitionRegistry,以全面掌握Bean注册和解析的核心原理。

Java 后端接口入参 - 联合前端VUE 使用AES完成入参出参加密解密

加密效果: 解密后的数据就是正常数据: 后端:使用的是spring-cloud框架,在gateway模块进行操作 <dependency><groupId>com.google.guava</groupId><artifactId>guava</artifactId><version>30.0-jre</version></dependency> 编写一个AES加密

音视频入门基础:WAV专题(10)——FFmpeg源码中计算WAV音频文件每个packet的pts、dts的实现

一、引言 从文章《音视频入门基础:WAV专题(6)——通过FFprobe显示WAV音频文件每个数据包的信息》中我们可以知道,通过FFprobe命令可以打印WAV音频文件每个packet(也称为数据包或多媒体包)的信息,这些信息包含该packet的pts、dts: 打印出来的“pts”实际是AVPacket结构体中的成员变量pts,是以AVStream->time_base为单位的显

kubelet组件的启动流程源码分析

概述 摘要: 本文将总结kubelet的作用以及原理,在有一定基础认识的前提下,通过阅读kubelet源码,对kubelet组件的启动流程进行分析。 正文 kubelet的作用 这里对kubelet的作用做一个简单总结。 节点管理 节点的注册 节点状态更新 容器管理(pod生命周期管理) 监听apiserver的容器事件 容器的创建、删除(CRI) 容器的网络的创建与删除

zeroclipboard 粘贴板的应用示例, 兼容 Chrome、IE等多浏览器

zeroclipboard单个复制按钮和多个复制按钮的实现方法 最近网站改版想让复制代码功能在多个浏览器上都可以实现,最近看网上不少说我们的代码复制功能不好用的,我们最近将会增加代码高亮等功能,希望大家多多支持我们 zeroclipboard是一个跨浏览器的库类 它利用 Flash 进行复制,所以只要浏览器装有 Flash 就可以运行,而且比 IE 的