Thema: Delphi Propertys zusammenfassen

Einzelnen Beitrag anzeigen

andreash

Registriert seit: 22. Jun 2006
Ort: Dörverden
60 Beiträge
 
Delphi 7 Professional
 
#21

Re: Propertys zusammenfassen

  Alt 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.
  Mit Zitat antworten Zitat