1. Pascal / Говнокод #9854

    +95

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    cbZoom.Items.AddObject('125%', TObject(125));
cbZoom.Items.AddObject('120%', TObject(120));
cbZoom.Items.AddObject('115%', TObject(115));
cbZoom.Items.AddObject('110%', TObject(110));
cbZoom.Items.AddObject('105%', TObject(105));
cbZoom.Items.AddObject('100%', TObject(100));
cbZoom.Items.AddObject('95%', TObject(95));
cbZoom.Items.AddObject('90%', TObject(90));
cbZoom.Items.AddObject('85%', TObject(85));
cbZoom.Items.AddObject('80%', TObject(80));
cbZoom.Items.AddObject('75%', TObject(75));
cbZoom.Items.AddObject('70%', TObject(70));
cbZoom.Items.AddObject('65%', TObject(65));
cbZoom.Items.AddObject('60%', TObject(60));
cbZoom.Items.AddObject('55%', TObject(55));
cbZoom.Items.AddObject('50%', TObject(50));
cbZoom.Items.AddObject('45%', TObject(45));
cbZoom.Items.AddObject('40%', TObject(40));
cbZoom.Items.AddObject('35%', TObject(35));
cbZoom.Items.AddObject('30%', TObject(30));
cbZoom.Items.AddObject('25%', TObject(25));
cbZoom.Items.AddObject('20%', TObject(20));
cbZoom.Items.AddObject('15%', TObject(15));
cbZoom.Items.AddObject('10%', TObject(10));
cbZoom.ItemIndex := 5; //100%

    вот кто-то так решил набить комбобокс...

    Запостил: hexman, 04 Апреля 2012

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

    • ava vistefan 04.04.2012 18:51 # 0

      [sarcasm]Стерва, я до сих пор так заполняю...[/sarcasm]
      Ответить

    • ava Lure Of Chaos 06.04.2012 08:04 # 0

      TObject нужен?
      Ответить

      • ava hexman 06.04.2012 09:53 # 0

        Нужен, так как комбобокс помимо строк содержит список объектов. Чтобы получить не текстовое значение списка, можно TObject привести например к Integer. Автор явно не хотел утруждать себя элементарной математикой :)

        Так реализовано получение значения из комбобокса:
        Result := Integer(cbZoom.Items.Objects[cbZoom.ItemIndex]);
        Ответить

        • ava TarasB 06.04.2012 10:39 # −1

          А он в курсе, что приводит указатель к числу?
          Ответить

          • ava hexman 06.04.2012 14:42 # 0

            Не знаю, но думаю он понимал, что использует указатель для хранения числа, а не адреса.
            Ответить

            • ava Makar4egg 08.04.2012 02:33 # 0

              ...Если явно преобразовывал тип, то точно понимал.
              Но код и правда дебильный.
              Реально проще написать простенький цикл в 2 строки.
              Ответить

    • ava guest8 09.04.2019 13:00 # −999

      показать все, что скрытоvanished
      Ответить

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