Delphi-Quellcode:
TGeomFigur = class(TObject)
protected
function GetUmfang : real; virtual; abstract;
function GetFlaeche : real; virtual; abstract;
property Umfang : real read GetUmfang;
property Flaeche : real read GetFlaeche;
end;
TRechteck = class(TGeomFigur)
protected
function GetUmfang : real; override;
function GetFlaeche : real; override;
public
property Umfang: real;
end;
müsste klappen zum verschieben der Sichtbarkeit
