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

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

Название месяца

verybadbug ©   (2006-08-29 06:27:00) 

хотелось бы сделать чё-то типа
function MonthToStr(Month: Integer): String;

месяц надо брать из системы....

---

han_malign   (2006-08-29 10:36:00) [1]

> В системе его нет, afaik.

- "конкретно" из системы(для примера, в sysutils это грамотней сделано):
program _lc;
{$APPTYPE CONSOLE}
uses Windows;
var pc: array[0..100]of char;
   i, len: integer;
   _s: string;
begin
 for i:= LOCALE_SMONTHNAME1 to LOCALE_SMONTHNAME12 do begin
    len:= GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, i, pc, sizeof(pc));
    if(len > 0)then begin
       SetString(_s, pc, len);
       CharToOem(PChar(_s), PChar(_s));
       Writeln(_s);
    end;
 end;
end.

---

Ketmar   (2006-08-29 09:45:00) [2]

> [4] verybadbug ©   (29.08.06 09:09)
что, хэлп читать религия запрещает? SysUtils.

---

verybadbug   (2006-08-29 09:14:00) [3]

пока решил так....
function MonthToStr(Month: Integer): String;
begin
 Result := FormatDateTime('mmmm', EncodeDate(1900, Month, 1));
end;

---

verybadbug   (2006-08-29 09:09:00) [4]

и в каком же unit этот LongMonthNames[...]???

---

begin...end   (2006-08-29 08:42:00) [5]

В системе его есть. См. LongMonthNames[...].

---

Virgo_Style   (2006-08-29 08:12:00) [6]

...а заполнить его можно с помощью FormatDateTime

---

TUser   (2006-08-29 06:41:00) [7]

В системе его нет, afaik. Заведи себе массив. Можно менять занчения в зависимости от локали.

---

Наверх