Propertys zusammenfassen

[andreash]

Die Methode Assign sollte besser so implementiert werden, da es sonst zu einem Fehler kommt.

Delphi-Quellcode:

procedure TMyPersistent.Assign(Source : TPersistent); override;
begin
  If Source is TMyPersistent then
  begin
    FColor:=TMyPersistent(Source).Color;
  end
  else
    inherited Assign(Source);
end;