Динамические массивы

[KotKot]

Функция Day of Week возвращает не строку а число :0-Воскресение,1-Понедельник,2-Вторник,3-среда и.т.д.Помогите понять почему в приммере:
(

procedure TForm1.GetDayButtonClick(Sender: TObject);

var
day:integer;
week:array[1..7] of string;
begin
week[1]:='Воскресенье';
week[2]:='Понедельник';
week[3]:='Вторник';
week[4]:='Среда';
week[5]:='Четверг';
week[6]:='Пятница';
week[7]:='Суббота';
day:=DayOfWeek(Date);
DayOfWeekEdit.Text:=week[day];
end;
функция DayOfWeek возвращает число 3,а не 2 если сегодня вторник?
Если ответ правильный окажется что:возвращает 3 как третий элемент массива который находится в строке под номером 2.Тоесть функция DayOfWeek возвращает строку под номером 2.Тогда почему в похожем примере:
procedure TForm1.GetDayButtonClick(Sender: TObject);

var
day:integer;
week:array[0..6] of string;
begin
week[0]:='Воскресенье';
week[1]:='Понедельник';
week[2]:='Вторник';
week[3]:='Среда';
week[4]:='Четверг';
week[5]:='Пятница';
week[6]:='Суббота';
day:=DayOfWeek(Date);
DayOfWeekEdit.Text:=week[day];
end;

функция DayOfWeek возвращает 3 а не 2.Ведь тогда строка в массиве окажется под номером 3 а не 2.Помогите разобраться.
Если ответ правильный не такой то скажите какой?Помогите разобраться.
Может в книге написано не правильно что если функция DayOfWeek возвращает 2 то это вторник.Может 3 это вторник?

[Neurogenus]

Понимаете в чем дело...есть же американский календарь...у них неделя начинается с воскресенья..(попробуйте сменить языковую оболочку системы на английскую и поймете)...Удачи вамДерзайте..

[Sharom_Debt]

Нумерация начинается с нуля, а у тебя с единицы.

[Neurogenus]

Описание
Функция DayOfTheWeek возвращает индекс дня недели:

1 = Понедельник
2 = Вторник
3 = Среда
4 = Четверг
5 = Пятница
6 = Суббота
7 = Воскресенье

Примечания
Предупреждение: Эта функция НЕ соглачована с ISO 8601.

DayOfTheWeek является согласованной с ISO 8601, и использует Понедельник как начало недели.

Источник: http://www.delphisources.ru/pages/faq/faq_delphi_basics/DayOfWeek.php.html

Теперь:
function DayOfWeek(Date: TDateTime): Integer;

Описание
Функция DayOfWeek возвращает день недели даты, где 1 обозначает воскресенье, 7 - субботу
Ошибки

Источник: http://valera.asf.ru/delphi/help/nam...name=DayOfWeek

И на последок:

Function DayOfWeek(Date: TDateTime): Integer;

Возвращает день недели определенной даты как целое число между 1 и 7. Воскресенье - первый день недели, и суббота - седьмой.

Источник: http://www.codenet.ru/progr/delphi/O...l/datetime.php

Вывод - на делфисурс ошибка..

[KotKot]

wewqeeeqeqeqew

[KotKot]

qeweqweqeqwewqeqw

[Utkin]

Вычитай единицу и не парься. У америкосов все через задний проход даже неделя начинается с воскресенья, чего непонятно?
воскресение 1
понедельник 2
вторник 3