uses

SysUtils, Windows, Messages, Classes, Graphics, Controls,

Forms, Dialogs, ExtCtrls, StdCtrls, IniFiles, TypInfo, Debug;

type

TUniqueReader = Class (TReader)

LastRead: TComponent;

procedure ComponentRead(Component: TComponent);

procedure        SetNameUnique(

Reader: TReader;

Component: TComponent;

var Name: string

);

end ;

implementation

procedure TUniqueReader.ComponentRead(

Component: TComponent

);
begin

LastRead := Component;

end ;

procedure TUniqueReader.SetNameUnique(   // Задаем уникальное имя считываемому компоненту , например , "Panel2", если "Panel1" уже существует

Reader: TReader;

Component: TComponent;               // Считываемый компонент

var Name: string                      // Имя компонента для дальнейшей модификации

);
var

i: Integer;

tempname: string ;

begin

i := 0 ;

tempname := Name;

while Component.Owner.FindComponent(Name) <> nil do begin

Inc(i);

Name := Format( '%s%d' , [tempname, i]);

end ;

end ;


function DuplicateComponents(

AComponent: TComponent   // исходный компонент

): TComponent;               // возвращаемся к созданию нового компонента

procedure RegisterComponentClasses(

AComponent: TComponent

);

var

i : integer;

begin

RegisterClass(TPersistentClass(AComponent.ClassType));

if AComponent is TWinControl then

if TWinControl(AComponent).ControlCount > 0 then

for i := 0 to

(TWinControl(AComponent).ControlCount- 1 ) do

RegisterComponentClasses(TWinControl(AComponent).Controls[i]);

end ;

var

Stream: TMemoryStream;

UniqueReader: TUniqueReader;

Writer: TWriter;

begin

result := nil ;

UniqueReader := nil ;

Writer := nil ;

try

Stream := TMemoryStream.Create;

RegisterComponentClasses(AComponent);

try

Writer := TWriter.Create(Stream, 4096 );

Writer.Root := AComponent.Owner;

Writer.WriteSignature;

Writer.WriteComponent(AComponent);

Writer.WriteListEnd;

finally

Writer.Free;

end ;

Stream.Position := 0 ;

try

UniqueReader := TUniqueReader.Create(Stream, 4096 );      // создаем поток, перемещающий данные о компоненте в конструктор

UniqueReader.OnSetName := UniqueReader.SetNameUnique;

UniqueReader.LastRead := nil ;

if AComponent is TWinControl then

UniqueReader.ReadComponents(
// считываем компоненты и суб-компоненты

TWinControl(AComponent).Owner,

TWinControl(AComponent).Parent,

UniqueReader.ComponentRead

)

else

UniqueReader.ReadComponents(
// читаем компоненты

AComponent.Owner,

nil ,

UniqueReader.ComponentRead

);

result := UniqueReader.LastRead;

finally

UniqueReader.Free;

end ;

finally

Stream.Free;

end ;

end ;

Опрос