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

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

Наличные форматы дату


Didi ©   (2002-07-26 12:23:00) 

Как можно извлечит и показат в ListBox наличные форматы дату?


MBo   (2002-07-26 13:05:00) [1]

текущий формат примерно так и еще посмотри список форматов FormatDateTime

function EDFProc(p:pchar):Boolean;stdcall;
begin
form1.listbox1.items.add(formatDatetime(p,now));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
EnumDateFormats(@EDFProc,LOCALE_USER_DEFAULT,DATE_SHORTDATE);
EnumDateFormats(@EDFProc,LOCALE_USER_DEFAULT,DATE_LONGDATE);
end;


Didi   (2002-07-26 12:48:00) [2]

Нет, я хочу получит следный списък:
26.07.2002
26.07.2002 г.
26.7.2002
26.7.2002 г.
2002-07-26
26 Юли 2002 г. 12:15 и т.д. - все форматы от RegionalSettings-Date


MBo   (2002-07-26 12:28:00) [3]

это нужно?
listbox1.items.add(datetostr(now));


Наверх

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