Форум: "Начинающим";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];

Вниз

Название месяца   Найти похожие ветки 

← →
verybadbug ©   (2006-08-29 06:27) [0]

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

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

---

← →
TUser ©   (2006-08-29 06:41) [1]

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

---

← →
Virgo_Style ©   (2006-08-29 08:12) [2]

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

---

← →
begin...end ©   (2006-08-29 08:42) [3]

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

---

← →
verybadbug ©   (2006-08-29 09:09) [4]

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

---

← →
verybadbug ©   (2006-08-29 09:14) [5]

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

---

← →
Ketmar ©   (2006-08-29 09:45) [6]

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

---

← →
han_malign ©   (2006-08-29 10:36) [7]

> В системе его нет, 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.

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.046 c