Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Не могу преоброзовать строку в дату. [D7, XP]


Anar ©   (2007-07-15 00:59:00) 

Есть строка

string_date := 2007-07-15

Есть компонент TDateTimePicker.
Нужно эту строку преоброзовать в дату и назначить в этот самый DateTimePicker.

Мои действия:


DateTimePicker1.Date := StrToDate(string_date);


В результате получаю exception:

'2007-07-15' is not valid date

Хотя если в строке будет дата в формате 15.07.2007 , то всё проходит без проблем.

Но как преобразовать в дату строки в формате год-месяц-число?


Однокамушкин   (2007-07-15 07:18:00) [1]


> {RASkov} ©   (15.07.07 01:30) [1]
> Желательно это все восстановить нужно.... после присваения
> даты пикеру.

Лучше просто пользоваться перегруженным вариантом процедуры StrToDate:
function StrToDate(const S: string; var FormatSettings: TFormatSettings): TDateTime; overload;
Тогда глобальные настройки формата вообще не будут затронуты, всё локализуется в параметре FormatSettings, который, кстати, можно один раз заполнить, а потом использовать много раз...


{RASkov}   (2007-07-15 01:30:00) [2]

....
 string_date := 2007-07-15
 DateSeparator:='-';
 ShortDateFormat:='YYYY/MM/DD';
 DateTimePicker1.Date:=StrToDate(string_date);
.....

Желательно это все восстановить нужно.... после присваения даты пикеру.


Наверх

Титульная страница Поиск, карта сайта Написать письмо