WriteComponent,ReadComponent

WriteComponent,ReadComponent

代码
var
Form1: TForm1;
ms: TMemoryStream;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
aBtn: TButton;
begin
aBtn :
= TButton.Create(Self);
aBtn.Parent :
= Self;
aBtn.Caption :
= 'Test';
aBtn.Left :
= 10;
ms.WriteComponent(aBtn);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
abtn: TButton;
begin
try
Classes.FindClass(
'TButton')
except
Classes.RegisterClass(TButton);
end;
abtn :
= TButton(ms.ReadComponent(nil));
aBtn.Parent :
= Self;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ms :
= TMemoryStream.Create;
if FileExists('btn.data') then
ms.LoadFromFile(
'btn.data');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
ms.SaveToFile(
'btn.data');
FreeAndNil(ms);
end;

 

转载于:https://www.cnblogs.com/Jekhn/archive/2010/12/25/1916685.html

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/297528.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

jquery 使用方法

jQuery是目前使用最广泛的javascript函数库。据统计,全世界排名前100万的网站,有46%使用jQuery,远远超过其他库。微软公司甚至把jQuery作为他们的官方库。对于网页开发者来说,学会jQuery是必要的。因为它让你了解业界最通用的技术…

bread是可数还是不可数_雅思官方语法教程之——这个名词到底可不可数?

名词是否可数,是非常隐形的扣分点。考生很可能意识不到自己犯错了,毕竟这是中文里不存在的语法点。这类语法点更应该重点备考。越练习,越熟悉,犯错扣分的几率也就越低。OK进入主题↓语法解释官方对可数和不可数名词的解释如下&…

PostgreSQL 统计所有数据表各自的总行数

一般来说,可以使用 count(*) 来获取具体某张表的总行数:SELECT count(0) FROM t_user;如果想获得所有表的行数信息,可以使用以下 SQL 语句:SELECTrelname,reltuples FROMpg_classCLS LEFT JOIN pg_namespace N ON ( N.oid CLS.re…

google的api key调用次数是多少_Sprint Boot如何基于Redis发布订阅实现异步消息系统的同步调用?...

前言在很多互联网应用系统中,请求处理异步化是提升系统性能一种常用的手段,而基于消息系统的异步处理由于具备高可靠性、高吞吐量的特点,因而在并发请求量比较高的互联网系统中被广泛应用。与此同时,这种方案也带来了调用链路处理…

加密、解密以及Openssl建立私有CA

一、openssl简介 OpenSSL 是一个强大的安全套接字层密码库,囊括主要的密码算法、常用的密钥和证书封装管理功能及SSL协议,并提供丰富的应用程序供测试或其它目的使用。 SSL:secure socket layer 安全套接层协议 可以在internet提供秘密性的传输。…

密西根州立大学计算机qs分数,2020年QS世界大学排名密歇根州立大学排名第144

2020年QS世界大学排名指标1.Academic Reputation 学术声誉(所占比重为40%)这项指标数据来源于QS学术调查。搜集了80,000多位高校领域大牛对教学和科研方面的意见。这也是世界上类似调查中规模最大,覆盖面最广的。2.Employer Reputation 雇主声誉(所占比重为10%)考察…

全球2%高智商天才必测脑力题!却只有1%的人,能在5分钟内全部做对!

▲ 点击查看说起娱乐圈最“变态”的养娃爸爸,妥妥非吴尊莫属!上亿元的学区别墅、几十万学费1年的文莱国际幼儿园、一周7天辅导班、家教、每年1个儿童国际比赛、考证拿奖……1个吴尊绝对抵得上8个海淀妈。前段时间吴尊晒出neinei二年级毕业成绩单&#xf…

IBM软件OEM概览

http://files.cnblogs.com/menghe/IBM%E8%BD%AF%E4%BB%B6OEM%E6%A6%82%E8%A7%88.pdfmenghecn.ibm.com 转载于:https://www.cnblogs.com/menghe/archive/2012/01/26/2329712.html

如何优化 .NET Core 中的 lambda 查询表达式 ?

咨询区 Moutia AYED:我的项目需要构建几个图表,产生图表的 数据源 相对比较复杂,参考如下代码:var resultdb await _dbContext.TimeSheetElements.Where(t > t.UserId userId &&t.Date.Month month && t.Date.Year y…

asp.net中gridview 如果字数太多可以用此方法把字体变短+.....

首先启动一个RowDataBound控件里面在加上一个if ((e.Row.Cells[0].Text).Length > 6) { e.Row.Cells[0].Text (e.Row.Cells[0].Text).Substring(0, 6) "…";//截取文章主题 }//如果是第一列的话用cell【0】 if ((e.Row.Cells[1].Text).Length…

python数据整理_python数据类型整理

Python中常见的数据结构可以统称为容器(container)。序列(如列表和元组)、映射(如字典)以及集合(set)是三类主要的容器。 一、序列(列表、元组和字符串) 序列…

爬取三千条数据需要多久_存储-性能,IOPS,带宽,吞吐量,1TB数据需要多久写完...

让我们先看一下这三个概念:IOPS (Input/Output Per Second) 即每秒的输入输出量(或读写次数),是衡量存储介质性能的主要指标之一。IOPS是指每秒钟系统能处理的读写请求数量。 吞吐量(Throughput )衡量的是存储介质的数据传输速率&…

TortoiseSVN客户端重新设置用户名和密码[转]

在第一次使用TortoiseSVN从服务器CheckOut的时候,会要求输入用户名和密码,这时输入框下面有个选项是保存认证信息,如果选了这个选项,那么以后就不用每次都输入一遍用户名密码了。 不过,如果后来在服务器端修改了用户名…

这就是你们有钱人炫富的新方式吗?

1 真正的1秒可爱喷雾▼2 你们父子俩的脚咋回事啊?▼3 咦?影子动了!▼4 小姐姐,你这样就很过分了!▼5 宝宝发现了一个新玩具▼6 这就是有钱人炫富的新方式吗?▼7 单身久了,看两片茶叶转圈…

最新服务器处理器天梯,服务器CPU性能排行榜天梯图(双路/三路/四路)

排名多路处理器CPU性能分1[四路] Intel Xeon Platinum 8180 2.50GHz441392[双路] Intel Xeon Gold 6154 3.00GHz359483[双路] Intel Xeon Gold 6138 2.00GHz356594[双路] Intel Xeon Gold 6152 2.10GHz353685[双路] Intel Xeon E5-2699 v4 2.20GHz343306[双路] Intel Xeon…

centos 下 mysql 主从库搭建

作者:蘑菇 今天在本本上装了个mysql主从库配置,中间遇到了几个问题,不过经过搜寻资料,已经可以正常工作了。 过程写下来做个记录: 因为上次已经装过LNMP,所以只要再装一个mysql做从库就好了。重新编译mysql安装$ tar …

Dapr + .NET 实战(五)Actor

什么是Actor模式Actors 为最低级别的“计算单元”以上解释来自官方文档,看起来“晦涩难懂”。大白话就是说Actors模式是一段需要单线程执行的代码块。实际开发中我们经常会有一些逻辑不能并发执行,我们常用的做法就是加锁,例如:lo…

打印机一直显示正在打印中_中国和桌面3D打印机正在引领3D打印市场

2020年11月4日,南极熊获悉,国外的市场研究公司CONTEXT最近发布了3D打印市场报告,“中国”和“桌面3D打印机”正引领全球的3D打印市场从COVID-19疫情中复苏。分析报告显示,在2020年第一季度至第二季度期间,中国国内工业…

python中的星号和乘号_Python 函数中参数前面一个和两个星号(**)的区别

Python是一种计算机程序设计语言。是一种面向对象的动态类型语言,最初被设计用于编写自动化 脚本( shell),随着版本的不断更新和语言新功能的添加,越来越多被用于独立的、大型项目的开发。在 Python 的函数中经常能看到输入的参数前面有一个或…

sql重新注册服务器,sql server无法新建注册服务器怎么办?

SQL Server 不存在或访问被拒绝ConnectionOpen (Connect())这个"SQL Server 不存在或访问被拒绝"通常是最复杂的,错误发生的原因比较多,需要检查的方面也比较多。一般说来,有以下几种可能性:1、SQL Server名称或IP地址拼…