Sorry, aber warum will man sowas überhaupt machen, mir fällt dazu kaum ein Use-Case ein.
Bestenfalls wäre ein duplizieren einer Instanz, wozu ich dann immer eine explizite Methode ".Clone" dafür anlegen würde, die auch was entsprechend vorbereiten kann.
Naja, in Delphi ist es ja üblich, in Klassenhierarchien eine Methode
Assign
zu haben. Dann kannst du
Clone
so implementieren:
Delphi-Quellcode:
function TAnimal.Clone: TAnimal;
begin
Result := TAnimalClass(ClassType).Create;
Result.Assign(Self);
end;