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

[iCaesy]

Вот что пишет
[Error] Unit1.pas(67): Undeclared identifier: 'DaysInAWeek'
Вот здесь

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

В строке

result:= DaysInAWeek(YearOf(fDate), WeekOf(fDate))-DayOf(fDate);

[iCaesy]

И еще несколько вопросов:
Если я хочу дату отображать в Edit1 Edit2 Edit3, соответственно для дня,месяца, и года.
То в Свойствах Edit'а в поле Text вписывать YearOf, DayOf, MonthOf ??

[iCaesy]

С последним разобрался. Интересует вопрос про недели !!!

[iCaesy]

ап
10 символов

[Serge_Bliznykov]

DaysInAWeek

не, ну Вы хоть немножечко пытаетесь понять, что делают функции?!!

функция DaysInAMonth

Returns the number of days in a specified month of a specified year.

перевожу - возвращает число дней в указанном месяце указанного года.

а что, по Вашему должна делать функция DaysInAWeek ?! Возвращать число дней в неделе?! Так я вам тайну открою: в нашем календаре в любой неделе любого года 7 (семь) дней!

а число дней до конца недели найти просто:

  result := 7 - DayOfTheWeek(fDate);

p.s. в данной формуле текущий день не учитывается. т.е. от четверга до конца недели 3 дня. Если нужно учитывать текущий день - добавьте к значению формулы единицу.