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

WriteComponent,ReadComponent相关推荐

Delphi的“动态窗体”技术实际应用[网络摘抄]
Delphi的"动态窗体"技术实际应用日期:2005年6月1日作者:On2008 人气:613 查看:[大字体中字体小字体] 在Delphi ...
Sonar 质量扫描的输出日志--对应源码的跟踪（二）{sonar engine源码}
一个project下面module完整的sonar分析日志: [INFO] --- sonar-maven-plugin:3.2:sonar (default-cli) @ pcaic-parent ...
Delphi TStream 详细介绍
Delphi TStream 详细介绍 Stream对象,又称流式对象,是TStream.THandleStream.TFileStream.TMemoryStream.TResourceStream ...
delphi组件读写机制
一.流式对象(Stream)和读写对象(Filer)的介绍在面向对象程序设计中,对象式数据管理占有很重要的地位.在Delphi中,对对象式数据管理的支持方式是其一大特色. Delphi是一个面 ...
Spring Security和Angular教程
Spring Security和Angular教程 (一)安全的单页应用程序在本教程中,我们展示了Spring Security,Spring Boot和Angular的一些很好的功能,它们协同工作 ...
Unity插件学习（五） ------ 本地存储Easy Save3
文章目录一.前言及下载地址二.功能介绍三.使用方法 1.[Easy Save3存储支持的类型](https://docs.moodkie.com/easy-save-3/es3-supporte ...
Delphi 通过Access Violation地址错误找到错误的哪行代码
什么是 MAP 文件?简单地讲, MAP 文件是程序的全局符号. 源文件和代码行号信息的唯一的文本表示方法, 它可以在任何地方.任何时候使用,不需要有额外的程序进行支持. 而且,这是唯一能找出程序崩溃 ...
Delphi的对象机制浅探[转载]
Delphi的对象机制浅探 savetime2k@yahoo.com 2004-1-3 前几天开始阅读 VCL 源代码,可是几个基类的继承代码把我看得头大.在大富翁请教了几位仁兄后,我还是对Delph ...
Dart : 查看 dill 编译代码文件
文章目录写在前面内容准备编译参考写在前面 Dart VM 在运行时会对 .dart 文件编译成 .dill 文件,有时候我们可以通过查看 .dill 文件来从更深一层的角度来理解代码.本篇 ...

WriteComponent,ReadComponent

WriteComponent,ReadComponent相关推荐

最新文章

热门文章