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

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

Вывести месяц [D7, WinXP]

Страницы:   < 1 2 >

Бэтман ©   (2008-03-10 23:07:00) 

Нужно вывести месяц в строковой форме
например
Февраля
Декабря
Есть ли какая то функция для этого ?

---

DVM   (2008-03-10 23:20:00) [21]

так попробуй (строку формата настрой сам как хочешь)

function GetDate: string;
var
 st: TSystemTime;
 Date, FormatString: PChar;
 DateSize, FormatStringSize: integer;
begin
 Result := '';
 FormatStringSize := GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SLONGDATE, nil, 0);
 GetMem(FormatString, FormatStringSize * SizeOf(Char));
 GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SLONGDATE, FormatString, FormatStringSize);
 GetLocalTime(st);
 DateSize := GetDateFormat(LOCALE_USER_DEFAULT, 0, nil, FormatString, nil, 0);
 GetMem(Date, DateSize * SizeOf(Char));
 GetDateFormat(LOCALE_USER_DEFAULT, 0, @st, FormatString, Date, DateSize * SizeOf(Char));
 result := Date;
 FreeMem(Date);
 FreeMem(FormatString);
end;

---

Бэтман   (2008-03-10 23:18:00) [22]

То есть через case только ?

---

DVM   (2008-03-10 23:15:00) [23]

> Есть ли какая то функция для этого ?

В делфи нет. Точнее есть, но она именно так тебе не выведет.

---

Страницы:   < 1 2 >

Наверх