Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Assign auf Vorfahr-Komponente

    Delphi
    by Blup, 18. Jun 2009
  Eine Exception würde so nur bei Klassen auftreten, die nicht von TComponent abgeleitet wurden.
• Forum: Object-Pascal / Delphi-Language

  Re: Assign auf Vorfahr-Komponente

    Delphi
    by Blup, 16. Jun 2009
  TComponent implementiert kein eigenes Assign (um z.B. den Tag zu übernehmen).
  Deshalb wird Assign von TPersistent aufgerufen, was zur Exception führt.
  Wenn deine Komponente auch den Tag übernehmen soll, dann z.B. so:
  
  procedure TMeineKlasse1.Assign(Source: TPersistent);
  begin
  if Source is TComponent then
  Tag := TComponent(Source).Tag
  else
  inherited; {Exception auslösen}