Proceduren in Klassen

[Neutral General]

Du musst Draw auch in TFigure deklarieren und als virtuell markieren. Sonst funktioniert das nicht:

Delphi-Quellcode:

Tfigure=class(Tobject)              
    Typ: Tobjecttyp; 
    Penwidth: Integer; 
    procedure draw; virtual; abstract;
  end; 


  Tline=class(Tfigure) 
    start: Tpoint; 
    finish:  Tpoint; 
    procedure draw; override;  //diese Prozedur zeichnet eine Linie 
  end; 

  Tcircle=class(Tfigure) 
    mid: Tpoint; 
    point:  Tpoint; 
    procedure Draw; override; //diese Prozedur zeichnet einen Kreis 
  end;

Jetzt funktioniert das