property...read..write

[Haegar]

also irgendwie hab ich hier nen beispiel aus nem buch, aber ich komm noch nicht ganz dahinter!
hier der wichtige Teil des quelltextes

Delphi-Quellcode:

interface 
 type TAuto=class(TObject)
  private
   bj:integer;               
   function liesAlter: integer;
   procedure schreibAlter(a:integer);
  public
   constructor erzeugen(xpos,ypos:integer; color:longint, baujahr:integer);
   property Alter:integer read liesAlter write schreibAlter;
 end;

implementation

function TAuto.liesAlter:integer;
begin
 result:=StrToInt(FormatDateTime('yyyy',Date))-bj;
end;

procedure TAuto.schreibAlter(a:integer);
begin
 bj:=StrToInt(FormatDateTime('yyyy',Date))-a;
end;

constructor tAuto.erzeugen(xpos,ypos:integer;color:longint; baujahr:integer);
begin
 x:=xpos;
 y:=ypos;
 farbe:=color;
 bj:=baujahr;
end;

also unklar ist mir nur das mit der Variablen "bj" (Baujahr)!
mein gedanke dazu!
-baujahr wird duchr constructor übergeben!
-danach mit function liesAlter das Alter
ermittelt (differenz: aktuell-bj)


und was hat das jetzt mit der Prozedur auf sich?
warum wird da nochmal bj bestimmt, bzw. was hat es mit der variable a auf sich???
kann mir wer helfen(ohne verbesserungsvorschläge, nur was da passiert)


danke haegar