Работа с ComboBox, Заполнение месяцами года компонента ComboBox Опции

[Atreides]

Уважаемые, не подскажите, как заполнить компонент ComboBox месяцами года и после вытаскивать значение этого месяца для дальнейшей работы. Посмотрел, что по описанию там есть идентификатор, а как его определять?

Сообщение отредактировано: Atreides - 17.01.2010 14:56

[volvo]

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]

Спасибо! Только это вот будет текст, текст имен месяцев нужен только для пользователя, а для работы мне хотелось бы получать идентификаторы от 1 до 12 в соответствии ч порядком следования месяцев.

[volvo]

Значит, работай с (ComboBox1.ItemIndex + 1) после выбора нужного пользователю месяца. Это вернет его порядковый номер.

[Atreides]

эм... это как? Я вот заполни в свойствах ComboBox поля String. Теперь как узнать какой выбраН?

[volvo]

// А при выборе нового значения в комбобоксе просто получаем индекс выбранного элемента:

var MonthSelected: Integer;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  MonthSelected := ComboBox1.ItemIndex + 1;
end;

[Atreides]

Спасибо