Delphi的持久化分析和总结.docx

Delphi的持久化

在论坛上常见到有帖子问如何拷贝控件的问题。其实Delphi提供了非常好的持久化机制，笔者写了一个类，提供两个方法，一个是将多个控件保存到流中，另一个是从流中读出控件。下面是源代码：

unitComPersist;

interfaceuses

Windows,Classes,Controls;

type

TComPersister=classprivate

FRoot:TComponent;protected

functionUniqueName(BaseName:string):string;virtual;procedureReaderSetName(Reader:TReader;Component:TComponent;

varName:string);

procedureReaderReadComponent(Component:TComponent);virtual;public

procedureSaveComsToStream(AStream:TStream;ComList:TList);procedureLoadComsFromStream(AStream:TStream;AParent:

TWinControl);

constructorCreate(ARoot:TComponent);

propertyRoot:TComponentreadFRootwriteFRoot;end;

implementationuses

SysUtils;

{TComPersister}

constructorTComPersister.Create(ARoot:TComponent);begin

FRoot:=ARoot;end;

procedureTComPersister.LoadComsFromStream(AStream:TStream;

AParent:TWinControl);var

Reader:TReader;begin

Reader:=TReader.Create(AStream,1024);try

Reader.OnSetName:=ReaderSetName;Reader.ReadComponents(FRoot,AParent,ReaderReadComponent);

finallyReader.Free;

end;end;

procedureTComPersister.ReaderReadComponent(Component:TComponent);functionControlExist(AParent:TWinControl;ALeft,ATop:Integer):

Boolean;var

LI:Integer;begin

Result:=False;

forLI:=0toAParent.ControlCount-1doifAParent.Controls[LI]Componentthen

withAParent.Controls[LI]do

if(Left=ALeft)and(Top=ATop)thenbegin

Result:=True;Break;

end;

end;var

LNewLeft,LNewTop:Integer;begin

ifComponentisTControlthenwithTControl(Component)dobegin

ifParentnilthenbegin

LNewLeft:=Left;LNewTop:=Top;

whileControlExist(Parent,LNewLeft,LNewTop)dobegin

Inc(LNewLeft,8);

Inc(LNewTop,8);

end;

SetBounds(LNewLeft,LNewTop,Width,Height);end;

end;

end;

procedureTComPersister.ReaderSetName(Reader:TReader;Component:TComponent;varName:string);

begin

//给控件取一个唯一的名字

ifFRoot.FindComponent(Name)nilthenName:=UniqueName(Component.ClassName);

end;

procedureTComPersister.