Registriert seit: 22. Jun 2006
Ort: Dörverden
60 Beiträge
Delphi 7 Professional
|
Re: Propertys zusammenfassen
10. Feb 2008, 19:37
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;
Andreas Der Optimist glaubt, wir leben in der besten aller möglichen Welten. Der Pessimist befürchtet, daß das stimmt.
|