Klassen in Delphi

[sakura]

Zitat von Luckie:

Delphi-Quellcode:

  Figure := TFigure.Create;
  try
    TRectangle(Figure).Draw('TFigure.Create / TRectangle(Figure).Draw');
      // Ruft TRectangle.Draw auf
  finally
    FreeAndNil(Figure);
  end;

Das ist zwar ein Beispiel für das casten und ich gehe mal davon aus, daß TRectangle von TFigure abgeleitet ist, allerdings sollte man nie ein Objekt auf eine Klasse casten, von der es nicht abstammt - imho ein Negativbeispiel für das Verständnis von Klassen!

......