Assign auf Vorfahr-Komponente

[shmia]

Hier mal das Grundgerüst:

Delphi-Quellcode:

procedure TMeineKlasse3.Assign(Source: TPersistent);
var
  t : TMeineKlasse3;
begin
  if Source is TMeineKlasse3 then
  begin
    t := TMeineKlasse3(Source);  // Hilfsvariable macht das Leben angenehmer
    self.z := t.z;
  end;
  inherited;  // Assign von TMeineKlasse2 aufrufen
end;