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

Вниз

ComboBox - различить Items и Values   Найти похожие ветки 

← →
alex123   (2004-03-30 09:50) [0]

Добрый день!
Как сделать чтобы в combobox"e выводились названия месяцев а писался в переменную номер выбранного месяца?

---

← →
Serge ©   (2004-03-30 09:55) [1]

Jan. = 0, Febr. = 1, .... - items in ComboBox;
var:=ComboBox1.ItemIndex(ComboBox1.ItemIndex+1);

---

← →
Serge ©   (2004-03-30 09:56) [2]

Ups. sorry
var:=ComboBox1.ItemIndex+1;

---

← →
ssk   (2004-03-30 10:14) [3]

вот выдрал прямо из проекта. может и не очень оригинально, но работает. другого способа не нашел.


procedure MakeMounths;
var
 k:integer;
begin
 k:=2;
 with mainForm.ComboBox1 do begin
    repeat
       Items.Add(FormatDateTime("mmmm", k));
       Inc(k, 31);
    until k>360;
    ItemIndex:=0;
 end;
end;

---

← →
Романов Р.В. ©   (2004-03-30 10:23) [4]

ssk   (30.03.04 10:14) [3]

var
 i: integer;
begin
 with ComboBox1.Items do
 begin
   Clear;
   for i := Low(LongMonthNames) to High(LongMonthNames) do
   Add(LongMonthNames[i]);
 end;
end;

---

← →
alex123   (2004-03-30 10:30) [5]

Спасибо!

---

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

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

Наверх

Память: 0.45 MB
Время: 0.032 c