Eingaben im Objektinspektor prüfen

[mkinzler]

Delphi-Quellcode:

TPerson = class
  private
    FGeburttag: TDate;
  public 
    procedure setGeburttag( Value: TDate);
    function getAlter: Byte;
  published
    property Geburtstag: Tdate read FGeburttag write setGeburtstag;
    property Alter: Byte read getAlter;
end;

procedure TPerson.setGeburttag( Value: TDate);
begin
    if Value < date() then
    begin
      FGeburttag := Value;
    end
    else
    begin
     //Fehlerausgabe
    end;
end;

function TPerson.getAlter: Byte;
var
    d,m,y: Word;
begin
    Decodedate( Date()-FGeburttag, y, m, d);
    result := y;
end;