Вопрос по формату Date

[Vit@L]

Привет всем.
Подскажите пожалуйста как переделать значение даты из к примеру 11.03.2010 в 11 марта 2010. Иначе говоря, мне требуется из компонента datetimeedit1 (в котором дата представлена как 11.03.2010) напечатать в отчете дату как 11 марта 2010 года. Т.е. чтобы из числового значения месяца печаталось его название.
Заранее спасибо.

[Пепел Феникса]

ShowMessage(FormatDateTime('dd mmmm yyyy',Now));
если выведет на английском то перезаполните массив

LongMonthNames: array[1..12] of string;

один раз в начале.

[Vit@L]

Спасибо, получилось. Только без ShowMessage, с ним выдавало ошибку.
А вот еще такой вопрос. Сейчас показывает как 11 март 2010, а как сделать чтобы он писал месяцы как положено, т.е. февраля, марта, апреля и т.д.
Заранее спасибо.

[mihali4]

Вам уже ответили и на этот вопрос - см. выше

LongMonthNames: array[1..12] of string;

[Vit@L]

mihali4, я видел что ответили, но я не совсем понял что с ним надо делать, можно пожалуйста по подробнее? А если еще кусочек кода приведете то буду вам премного благодарен.

[artemavd]

Попробуйте создать массив из названий месяцев с нужным вам окончанием.

[Stilet]

я не совсем понял что с ним надо делать

А ты что под словом "отчет" подразумеваешь то?
Обычные отчеты как правило сами согласно настроек переводят дату верно.
Там даже для поля типа дата можно в свойстве DisplayFormat для AdoQuery или че ты там юзаешь.
Вот пропиши в него dd mmmm yyyy, и твой репорт будет именно так интерпретировать дату сам.

[Vit@L]

И все же, пожалуйста, хоть кто-нибудь, покажите на примере как переделать дату из DateEdit, в котором она отображается как 01.01.2010 в 01 января 2010.
Заранее большое спасибо.

[Kotofff]

const
  Month: array [1 .. 12] of string[20] =
    (' января ',' февряля ',' марта ',' апреля ',' мая ',' июня ',' июля ',' августа ',' сентября ',' октября ',' ноября ',' декабря ');
...
...
...
procedure TForm1.DateTimePicker1Change(Sender: TObject);
var
  yyyy, mmmm, dd: word;
begin
  DecodeDate(DateTimePicker1.Date, yyyy, mmmm, dd);
  Label1.Caption := 'Выбрано - ' + IntToStr(dd) + Month[mmmm] + IntToStr(yyyy) + ' года';
end;

[mihali4]

Вставляем в самом начале

function FormatDate(Year, Month, Day : Dword) : string;
var SysTime : Tsystemtime; Buffer: array[0..1023] of Char;
begin
  SysTime.wYear := Year;
  SysTime.wMonth := Month;
  SysTime.wDay := Day;
  SetString(Result, Buffer, GetDateFormat(LOCALE_SYSTEM_DEFAULT,
  DATE_LONGDATE, @SysTime, nil, Buffer, SizeOf(Buffer)));
end;

Вызываем, например:

Label1.Caption:=FormatDate(2010,1,1);