Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Вниз

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


Марина   (2001-12-20 16:29) [0]

Подскажите,пожалуйста,как получить название месяца не в виде "декабря",например,а в виде "декабрь"? Заранее спасибо.



Внук   (2001-12-20 16:35) [1]

А стоит ли мучаться? Если можно получить названия месяцев в родительном падеже, то можно составить массив соответствий и все дела.



Dimka Maslov   (2001-12-20 18:32) [2]

const Months: array [1..12] of string = ("январь", "февраль", ... , "декабрь");

function GetMonthName(N: Integer): string;
begin
if (N=>Low(Months)) and (N<=High(Months)) then Result:=Months[N] else Result:="";

end;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.025 c
1-22227           Tosov                 2001-12-15 10:43  2002.01.08  
Как работать с TInplaceEdit


14-22397          dead                  2001-11-10 18:49  2002.01.08  
У кого- нибудь есть GIF или JPG контурной карты мира?


1-22140           Serg5                 2001-12-20 10:17  2002.01.08  
Вопрос, есть ли возможность уменьшить шрифт до 4 пикселей, менятся он меняется(программа не ругается), а на экран (Canvas.Font) он всё равно выводится 8 (самым минимальным)


3-21918           SVS                   2001-12-04 13:11  2002.01.08  
заполнение OleContainer из BlobField


1-22176           Serg5                 2001-12-20 14:57  2002.01.08  
Опять проблема с текстом: вывожу на экран Image1.Canvas.TextOut, но под самим текстом белый беграунд. Можно ли если не убрать(просто наложить буквы), то хотя бы беграунд сделать чёрным.