Уважаемые, не подскажите, как заполнить компонент ComboBox месяцами года и после вытаскивать значение этого месяца для дальнейшей работы. Посмотрел, что по описанию там есть идентификатор, а как его определять?
volvo
17.01.2010 15:02
uses dateutils;
// Заполняем комбобокс списком месяцев (в соответствии с региональными установками Windows): procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin for i := 1 to MonthsPerYear do begin 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 17:20
Спасибо! Только это вот будет текст, текст имен месяцев нужен только для пользователя, а для работы мне хотелось бы получать идентификаторы от 1 до 12 в соответствии ч порядком следования месяцев.
volvo
17.01.2010 17:32
Значит, работай с (ComboBox1.ItemIndex + 1) после выбора нужного пользователю месяца. Это вернет его порядковый номер.
Atreides
17.01.2010 22:53
эм... это как? Я вот заполни в свойствах ComboBox поля String. Теперь как узнать какой выбраН?
volvo
18.01.2010 1:27
// А при выборе нового значения в комбобоксе просто получаем индекс выбранного элемента:
var MonthSelected: Integer; procedure TForm1.ComboBox1Change(Sender: TObject); begin MonthSelected := ComboBox1.ItemIndex + 1; end;
Atreides
18.01.2010 1:52
Спасибо
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.