Это просто жесть. Нужно чтобы в поле Edit была написана текущая дата. Вот я и пытаюсь: ... var date : TDateTime; .... edit1.text:= DateToStr (date); ... И выводит не сегодняшню дату, а 30 дек. 1899!!!! На компе, в левом нижнем углу экрана, дата как надо. Что это может быть? Попробовал разбить на числа god, mes, chislo : word; функцией DecodeDate (date, god, chislo, mes); тоже самое: god=1899; mes=12; chislo=30; Что это за беспредел? Компилятор Borland Delphi 7.
|