Ansonsten bastel dir eine Assign Methode, um alle Eigenschaften in das Level zu kopieren. Dann kannst du diese Klassen so freigeben. Beispiel:
Delphi-Quellcode:
level[0]:=TLevel.create;
level[0].Assign(level[1]);
procedure TLevel.Assign(ASOurce:TPersistent);
begin if (ASource is TLevel) then
Self.Name := (ASOurce as TLevel).Name; //für alle attribute machen
else
inherited Assign(ASOurce);
end;
Du musst dann TLevel von TPersistent ableiten