Школоло / Говнокод #18059 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
FYears.Items.Clear;
      for i := 10 downto 1 do
        FYears.Items.Add(IntToStr(Year - i));
      FYears.Items.Add(IntToStr(Year));
      for i := 1 to 10 do
        FYears.Items.Add(IntToStr(Year + i));

Заполнение итемов номерами лет
Сначала добавим 10 лет до даты Х
Потом дату Х
Потом 10 лет после даты Х
RAD Studio XE8 FMX.Calendar.Style.pas

Запостил: PeaK PeaK, (Updated )

Комментарии (0) RSS

Добавить комментарий

Переведи на "PHP", guest!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓