Как добавить наименования месяцев
Как добавить наименования месяцев
Как добавить наименования месяцев При создании формы (или в нужное время): procedure TForm1.FormCreate(Sender: TObject); var i: integer; begin ComboMonth.Clear; ComboMonth.Items.Add('Выберите месяц'); for i:=1 to 12 do ComboMonth.Items.Add(LongMonthNames[i]); ComboMonth.ItemIndex:=0; ComboDay.Clear; ComboDay.Items.Add('Выберите дату'); for i:=1 to 31 do ComboDay.Items.Add(IntToStr(i)); ComboDay.ItemIndex:=0; end;
