1. Список говнокодов пользователя PeaK

    Всего: 2

  2. Pascal / Говнокод #18059

    +144

    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, 24 Апреля 2015

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

  3. Pascal / Говнокод #18058

    +143

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    if TPlatformServices.Current.SupportsPlatformService(IFMXLocaleService, IInterface(LocaleService)) then
        S := LocaleService.GetLocaleFirstDayOfWeek
      else
        S := '6';
      FFirstDayOfWeekNum := Ord(S.Chars[0]) - Ord('0');
      {$IFDEF MACOS}
      FFirstDayOfWeekNum:= Ord(S.Chars[0]) + Ord('0');
      {$ENDIF}
      {$IFDEF ANDROID}
        FFirstDayOfWeekNum := FFirstDayOfWeekNum - MondayOffset;
      {$ENDIF}

    Это FireMonkey! FMX.Calendar.Style.pas! И это реально работает.
    Главное, что всё очевидно.

    PeaK, 24 Апреля 2015

    Комментарии (1)