Klassenvariable an übergeordnete Klasse übergeben

[mkinzler]

Delphi-Quellcode:

FUNCTION TOberklasse.Create;
BEGIN
  INHERITED;
  Unterklasse := TUnterklasse.Create;
  ShowMessage(IntToStr(LocalNr)+' wurde übergeben.');
END;

FUNCTION TUnterklasse.Create;
BEGIN
  INHERITED;
  ShowMessage(IntToStr(LocalNr)+' wurde übergeben.');
END;

PROCEDURE TMainForm.StartKlasse;
VAR Oberklasse : TOberklasse;
BEGIN
  Oberklasse:=TOberklasse.Create;
  Oberklasse.Unterklasse.Nr:=Random(256);  
END;