[Максон]

День добрый, товарищи.
Наведите на мысль:
На форме из DateTimePicker выбирается нужная дата, по нажатию кнопки формируется отчет в ворде по шаблону (.dot). Необходимо, что бы в отчете вместо даты, например, 22.01.11 отображалось 22 января 2011

[angvelem]

DateFormat->dtLong.

[Максон]

Сообщение от angvelem

DateFormat->dtLong.

Сделал так, но при формировании отчета вместо длинной даты:
10 августа 2011 вышел набор цифирок, типа 4178 12216546464 и т.д.

Немного лирики: Отчет формируется в Ворде. Там я поставил закладку, переименовал документ в файл с расширением .dot

[Максон]

Решил сделать по-другому и вот что получилось:

Когда нажимаю выбор даты на DateTimePicker

Код:

Procedure TForm1.DateTimePickerChange(Sender:TObject);
const Mes:array[1..12] of string=('января','февраля','марта','апреля',
'мая','июня','июля','августа','сентября','октября','ноября','декабря');
var
Present: TDate;      
 Year, Month, Day : Word; 
begin
Present:= Date; 
 DecodeDate(Present, Year, Month, Day);
 Edit1.Text := IntToStr(Day)+ ' ' +
   Mes[Month] + ' '+ IntToStr(Year)+
   ' года, ';
end;

И какую бы я дату не выбрал в Edit1 всегда отображается текущая дата.
Почему так происходит?

[stil]

правильно потому что функция Date возвращает текущую дату а тебе надо вместо

Код:

Present:= Date

записать

Код:

Present:= DateTimePicker1.Date;

[Максон]

Спасибо огромное!
Все работает