Говнокод: по колено в коде.

• Все
• Лучший
• Сток
• Глупый поиск
• Наговнокодить!
• Oтзывы

Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!

1. PHP (5698)
2. C++ (2733)
3. Куча (2323)
4. JavaScript (2027)
5. C# (1924)
6. Java (1501)
7. Си (1095)
8. Pascal (647)
9. Python (582)
10. 1C (531)
11. SQL (431)
12. ActionScript (292)
13. Objective C (202)
14. bash (196)
15. Perl (194)
16. Assembler (146)
17. Ruby (142)
18. VisualBasic (138)
19. Lua (49)
20. Go (28)
21. Swift (27)
22. Haskell (26)
23. Kotlin (13)

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

   −49

   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

   procedure TForm1.TrackBar1Change(Sender: TObject);
      var I: integer;
      priority:TThreadPriority;
   { Изменение приоритета соответствующего потока }
   begin
      priority:=tpIdle;
      for i:=0 to ((Sender as TTrackBar).position -1) do 
         inc(priority);
      
      if sender=trackbar1 then thread1.priority:=priority  else
      if sender=trackbar3 then thread3.priority:=priority
      else thread2.Priority:=priority;
   end;

   Из методички к лабе.

   Запостил: vn13, 26 Октября 2016

   Tweet

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

   • shadow_of_stertor 26.10.2016 22:29 # −135

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

     function TThread.GetPriority: TThreadPriority;
     var
       P: Integer;
       I: TThreadPriority;
     begin
       P := GetThreadPriority(FHandle);
       CheckThreadError(P <> THREAD_PRIORITY_ERROR_RETURN);
       Result := tpNormal;
       for I := Low(TThreadPriority) to High(TThreadPriority) do
         if Priorities[i] = P then Result := I;
     end;
     
     procedure TThread.SetPriority(Value: TThreadPriority);
     begin
       CheckThreadError(SetThreadPriority(FHandle, Priorities[Value]));
     end;

     
     
     Пиздэйшн.

     Ответить

     • shadow_of_stertor 26.10.2016 22:35 # −137

       показать все, что скрытоМинусование... Опять минусование...
       Если я начну минусовать, Вам тут всем не поздоровится. Софт для этого, как Вы все могли убедиться, я пишу отменный...
       Лучше не играйте с огнём. Не дразните дурака.

       Ответить

       • dxd 26.10.2016 22:53 # −75

         показать все, что скрытоТут просто хостинг сомнительный. Софт откровенно печальный же.

         Ответить

         • shadow_of_stertor 27.10.2016 00:35 # −138

           показать все, что скрытоВам не нравится мой софт?.. ;*( Сну-сну-сну... Боро-боро-боро...
           Йоу!

           Ответить

       • barop 27.10.2016 00:58 # −138

         показать все, что скрытону-ка, минусни меня
         
         Что, слабо?

         Ответить

       • 1024-- 27.10.2016 18:15 # +2

         Надо уже устроить соревнование ботоводов. Каждый оставляет комментарий и ставит ему столько плюсов/минусов, сколько сможет.

         Ответить

         • bormand 27.10.2016 18:31 # 0

           И минусует остальные?

           Ответить

           • 1024-- 27.10.2016 18:52 # 0

             Да как-то не нужно. Только лишняя нагрузка на сервер.

             Ответить

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

   Ошибка компиляции комментария:

   1. Гости могут высказаться только во вторник, пятницу или субботу

   Где здесь C++, guest?!

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

   • [b]жирный[/b] — жирный
   • [i]курсив[/i] — курсив
   • [u]подчеркнутый[/u] — подчеркнутый
   • [s]перечеркнутый[/s] — перечеркнутый
   • [blink]мигающий[/blink] — мигающий
   • [color=red]цвет[/color] — цвет (подробнее)
   • [size=20]размер[/size] — размер (подробнее)
   • [code=<language>]some code[/code] (подробнее)

   Проверочный код: *