Komponente klonen

[Stevie]

Sag das doch gleich!
Ich hab etwas gebastelt, das funktionieren müsste, aber es ist - gebe ich zu - nicht die feine Art:

Delphi-Quellcode:

function CloneComponent(Component: TComponent): TComponent; 
var 
  Stream: TStream; 
  OldName, NewName: string; 
  i: Integer; 
begin 
  Stream := TMemoryStream.Create; 
  try 
    OldName := Component.Name; 
    i := 0; 
    repeat 
      Inc(i); 
      NewName := RightStr(Component.ClassName, Pred(Length(Component.ClassName))) + IntToStr(i); 
    until not Assigned(Component.Owner.FindComponent(NewName));
    Component.Name := NewName;
    Stream.WriteComponent(Component);
    Component.Name := OldName;
    Stream.Seek(0, soFromBeginning);
    RegisterClass(TComponentClass(Component.ClassType));
    Result := TComponentClass(FindClass(Component.ClassName)).Create(Component.Owner);
    while Result.ComponentCount > 0 do
    begin
      RegisterClass(TComponentClass(Result.Components[0].ClassType));
      Result.Components[0].Free;
    end;
    Stream.ReadComponent(Result);
  finally
    FreeAndNil(Stream);
  end;
end;

Das Komponenten-Löschen mache ich, damit sie nicht doppelt erstellt werden, wenn die Komponente aus dem Stream gelesen wird. Es geht auch besser, dann müsstest du aber selber ein Streaming entwickeln, das erst nachschaut, ob das gelesene Objekt bereits existent ist, und wenn ja, dann nur die Eigenschaften setzt. Irgendjemand hier hat so ein Streamingsystem mal entwickelt, such mal danach.

P.S.: Dieser Artikel über die RTTI dürfte dich sehr interessieren!