البرمجة الغرضية التوجه في دلفي

البرمجة الغرضية التوجه في دلفي
عروة عيسى
procedure TDate.Increase;
begin
fDate := fDate + 1;
end;
function TDate.LeapYear: Boolean;
begin
// from DateUtils
Result := IsInLeapYear(fDate);
end;
procedure TDate.SetDay(const Value: Integer);
begin
fDate := RecodeDay (fDate, Value);
end;
procedure TDate.SetMonth(const Value: Integer);
begin
fDate := RecodeMonth (fDate, Value);
end;
procedure TDate.SetYear(const Value: Integer);
begin
fDate := RecodeYear (fDate, Value);
end;
function TDate.GetDay: Integer;
begin
Result := DayOf (fDate);
end;
function TDate.GetMonth: Integer;
begin
Result := MonthOf (fDate);
٢٠