Уважаемые, не подскажите, как заполнить компонент ComboBox месяцами года и после вытаскивать значение этого месяца для дальнейшей работы. Посмотрел, что по описанию там есть идентификатор, а как его определять?
volvo
17.01.2010 11:02
uses dateutils;
// Заполняем комбобокс списком месяцев (в соответствии с региональными установками Windows):
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
beginfor i := 1to MonthsPerYear dobegin
ComboBox1.Items.Add(LongMonthNames[i]);
end;
ComboBox1.ItemIndex := 0;
end;
// А при выборе нового значения в комбобоксе просто извлекаем его в Эдит:
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Edit1.Text := ComboBox1.Text;
end;
Atreides
17.01.2010 13:20
Спасибо! Только это вот будет текст, текст имен месяцев нужен только для пользователя, а для работы мне хотелось бы получать идентификаторы от 1 до 12 в соответствии ч порядком следования месяцев.
volvo
17.01.2010 13:32
Значит, работай с (ComboBox1.ItemIndex + 1) после выбора нужного пользователю месяца. Это вернет его порядковый номер.
Atreides
17.01.2010 18:53
эм... это как? Я вот заполни в свойствах ComboBox поля String. Теперь как узнать какой выбраН?
volvo
17.01.2010 21:27
// А при выборе нового значения в комбобоксе просто получаем индекс выбранного элемента:
var MonthSelected: Integer;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
MonthSelected := ComboBox1.ItemIndex + 1;
end;
Atreides
17.01.2010 21:52
Спасибо
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.