WriteComponent,ReadComponent

最新推荐文章于 2018-07-06 11:20:29 发布

weixin_33726318

最新推荐文章于 2018-07-06 11:20:29 发布

阅读量70

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/Jekhn/archive/2010/12/25/1916685.html

本文介绍了一种使用Delphi实现的组件序列化方法，通过TMemoryStream将按钮组件写入和读取，实现了按钮组件状态的保存与恢复。这种方法可以方便地应用于需要持久化界面布局的应用程序中。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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