Позднее связывание и полиморфизм Delphi

[iCaesy]

Есть класс:

type
TDateAbstract = class
  private
  fDate: TDateTime;
  public
    constructor Create;virtual;abstract;
    procedure SetValue (NewDate: TDateTime);virtual;abstract;
    procedure Increase (NumberOfDays: Integer = 1);virtual;abstract;
    procedure Decrease (NumberOfDays: Integer =1);virtual;abstract;
    function GetText: string;virtual;abstract;
end;

Есть задание:
Создать наследников класса TDate, которые знают сколько дней осталось до конца месяца. Добавьте поле rest и метод для вывода остатка. Переопределите нужные методы и конструктор.

Посоветуйте с чего начать ? И что за поле rest ?

[JUDAS]

program Project11;
{$R *.res}
uses
 Windows,SysUtils,DateUtils;

type
  TDateAbstract = class
  private
   fDate: TDateTime;
  public
    constructor Create;virtual;abstract;
    procedure SetValue (NewDate: TDateTime);virtual;abstract;
    procedure Increase (NumberOfDays: Integer = 1);virtual;abstract;
    procedure Decrease (NumberOfDays: Integer =1);virtual;abstract;
    function GetText: string;virtual;abstract;
  end;

  TDate = class(TDateAbstract)
  protected
   function GetDayCount: integer;
  public
    property rest : integer read GetDayCount;
    constructor Create;override;
    procedure SetValue (NewDate: TDateTime);override;
  end;


{ TDate }

constructor TDate.Create;
begin
  inherited;
  fDate := 0;
end;

procedure TDate.SetValue(NewDate: TDateTime);
begin
  fDate :=  NewDate;
end;

function TDate.GetDayCount: integer;
begin
  result:= DaysInAMonth(YearOf(fDate), MonthOf(fDate))-DayOf(fDate);
end;

var D : TDate;

begin
   D := TDate.Create;
   D.SetValue(Now);
   MessageBox(0,PChar('До конца месяца '+DateToStr(Now)+
     ' осталось '+IntToStr(D.rest)+' дней'),'Результат',0);
   D.Free;
end.

И что за поле rest ?

скорее всего єто свойство класса.

[iCaesy]

Что - то у меня кучу ошибок выдает =( Ща выложу

[iCaesy]

И Что это значит

{$R *.res}

[iCaesy]

Мне нужно чтобы оно работало на форме. Что нужно поменять, а то куча ошибок...

[JUDAS]

Ты в какой делфи пишешь?

[iCaesy]

Delphi 7
(10 символов)

[JUDAS]

блин я тоже. Вот держи во вложении.

[iCaesy]

А если допустим нужно не до конца месяца, а до конца недели посчитать, какие корректировки нужно сделать ?
Если не сложно, пытаюсь разобраться)).

[JUDAS]

DaysInAMonth(YearOf(fDate), MonthOf(fDate))-DayOf(fDate);
все фразы Month заменить на Week, + для справки прочитать что делают функции в DateUtils