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

← →
Didi (2002-07-26 12:23) [0]

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

← →
MBo (2002-07-26 12:28) [1]

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

← →
Didi (2002-07-26 12:48) [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 13:05) [3]

текущий формат примерно так и еще посмотри список форматов 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;

Наличные форматы дату Найти похожие ветки