type
TMaman = class
private
fEtatMax: integer;
public
const Etat : integer = 0;
// Delphi 2007
property EtatMax: integer read fEtatMax default 0;
constructor Create; virtual;
end;
TFilsA = class(TMaman)
public
const Etat : integer = 1;
// Delphi 2007
property EtatMax default 3;
public
constructor Create; override;
end;
TFilsB = class(TMaman)
public
const Etat : integer = 2; // Delphi 2007
property EtatMax default 2;
public
constructor Create; override;
end;
{ TMaman }
constructor TMaman.Create;
begin
fEtatMax := 0;
end;
{ TFilsA }
constructor TFilsA.Create;
begin
inherited Create;
fEtatMax := 3;
end;
{ TFilsB }
constructor TFilsB.Create;
begin
inherited Create;
fEtatMax := 2;
end;
<hr size="2" width="100%" />