Delphi的持久化.pdfVIP

Delphi 的持久化 在论坛上常见到有帖子问如何拷贝控件的问题。其实 Delphi 提供了非常好的持久化机制，笔 者写了一个类，提供两个方法，一个是将多个控件保存到流中，另一个是从流中读出控件。 下面是源代码： unit ComPersist; interface uses Windows, Classes, Controls; type TComPersister = class private FRoot: TComponent; protected function UniqueName(BaseName: string): string; virtual; procedure ReaderSetName(Reader: TReader; Component: TComponent; var Name: string); procedure ReaderReadComponent(Component: TComponent); virtual; public procedure SaveComsToStream(AStream: TStream; ComList: TList); procedure LoadComsFromStream(AStream: TStream; AParent: TWinControl); constructor Create(ARoot: TComponent); property Root: TComponent read FRoot write FRoot; end; implementation uses SysUtils; { TComPersister } constructor TComPersister.Create(ARoot: TComponent); begin FRoot := ARoot; end; procedure TComPersister.LoadComsFromStream(AStream: TStream; AParent: TWinControl); var Reader: TReader; begin Reader := TReader.Create(AStream, 1024); try Reader.OnSetName := ReaderSetName; Reader.ReadComponents(FRoot, AParent, ReaderReadComponent); finally Reader.Free; end; end; procedure TComPersister.ReaderReadComponent(Component: TComponent); function ControlExist (AParent: TWinControl; ALeft, ATop: Integer): Boolean; var LI: Integer; begin Result := False; for LI := 0 to AParent.ControlCount - 1 do if AParent.Controls [LI] Component then with AParent.Controls [LI] do if (Left = ALeft) and (Top = ATop) then begin Result := True; Break; end; end; var LNewLeft, LNewTop: Integer; begin if Component is TControl then with TControl(Component) do begin if Parent nil then begin LNewLeft := Left; LNewTop := Top; while ControlExist(Parent, LNewLeft, LNewTop) do begin Inc (LNewLeft, 8); Inc