Thema: Delphi property...read..write

Einzelnen Beitrag anzeigen

Haegar

Registriert seit: 10. Dez 2002
Ort: Peitz
319 Beiträge
 
Delphi 7 Professional
 
#1

property...read..write

  Alt 20. Feb 2003, 21:28
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
  Mit Zitat antworten Zitat