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