Komposition ähnlicher Objekte; Prozeduraufruf ohne "as ..."

[LucasL]

Du hast Recht , tausend Dank!

Für jeden zum testen und nachvollziehen (ohne "override" funktioniert es nicht):

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TAbstract = class(TObject)
  public
    procedure Proc; virtual; abstract;
  end;

  TConcrete = class(TAbstract)
  public
    procedure Proc; override;
  end;

  procedure TConcrete.Proc;
  begin
    writeln('Konkret!');
  end;

var
  C: TAbstract;

begin
  { TODO -oUser -cConsole Main : Hier Code einfügen }
  C := TConcrete.Create;
  C.Proc;
  readln;
end.

Über die Hintergründe mache ich mir morgen einen Kopf .