Говнокод #7817 — Pascal — Говнокод.ру

Pascal / Говнокод #7817

+90
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
26. 26
27. 27
28. 28
29. 29
30. 30
31. 31
32. 32
33. 33
34. 34
35. 35
36. 36
37. 37
38. 38
39. 39
40. 40
41. 41
42. 42
43. 43
44. 44
45. 45
46. 46
47. 47
48. 48
49. 49
50. 50
51. 51
52. 52
```
Procedure TfMain.CheckButtonsStatus;
begin
  // Если есть кто-то в персональной очереди, то возобновить активна
  if (dMain.PersonalQueueQuery.RecordCount > 0) then
    TImageButton(mButtons[6]).mlabel.Enabled := true
  else
    TImageButton(mButtons[6]).mlabel.Enabled := False;

  // 'приглашен', 3, 'оповещен', 4, 'оповещен', 5, 'прием начат')
  if (dMain.StateQuery.FieldValues['state'] = 'свободно') then
  begin
    TImageButton(mButtons[0]).mlabel.Enabled := False;
    TImageButton(mButtons[1]).mlabel.Enabled := False;
    if dMain.CommonQueueQuery.RecordCount > 0 then
      TImageButton(mButtons[2]).mlabel.Enabled := true
    else
      TImageButton(mButtons[2]).mlabel.Enabled := False;

    TImageButton(mButtons[3]).mlabel.Enabled := False;
    TImageButton(mButtons[4]).mlabel.Enabled := False;
    TImageButton(mButtons[5]).mlabel.Enabled := False;
    OperPopupMenu.Items[0].Enabled := False;
  end;

  if (dMain.StateQuery.FieldValues['state'] = 'приглашен') or
    (dMain.StateQuery.FieldValues['state'] = 'оповещен') then
  begin
    TImageButton(mButtons[0]).mlabel.Enabled := true;
    TImageButton(mButtons[1]).mlabel.Enabled := False;
    TImageButton(mButtons[2]).mlabel.Enabled := False;
    TImageButton(mButtons[3]).mlabel.Enabled := true;
    TImageButton(mButtons[4]).mlabel.Enabled := False;
    TImageButton(mButtons[5]).mlabel.Enabled := False;
    TImageButton(mButtons[6]).mlabel.Enabled := False;
    if (dMain.StateQuery.FieldValues['state'] = 'приглашен') then
      OperPopupMenu.Items[0].Enabled := False
    else
      OperPopupMenu.Items[0].Enabled := true;
  end;

  if (dMain.StateQuery.FieldValues['state'] = 'прием начат') then
  begin
    TImageButton(mButtons[0]).mlabel.Enabled := False;
    TImageButton(mButtons[1]).mlabel.Enabled := true;
    TImageButton(mButtons[2]).mlabel.Enabled := False;
    TImageButton(mButtons[3]).mlabel.Enabled := False;
    TImageButton(mButtons[4]).mlabel.Enabled := true;
    TImageButton(mButtons[5]).mlabel.Enabled := true;
    TImageButton(mButtons[6]).mlabel.Enabled := False;
    OperPopupMenu.Items[0].Enabled := False;
  end;
end;
```
На работе достался проект, состоящий чуть менее чем полностью из подобных высеров.

Запостил: chaoswithin, 09 Сентября 2011

Tweet
Комментарии (37) RSS
- Lure Of Chaos 09.09.2011 09:49 # +2
  
  да ладно, это быдлокод, он неплохо поддается чтению и рефакторингу
  Ответить
  - chaoswithin 09.09.2011 12:04 # 0
    
    Чтобы понять что делает каждая кнопка надо заглянуть в здоровенную процедуру, в которой они все создаются. Я сейчас переделываю это на TPageControl. И других проблем тут не мало, я еще 5 штук насчитал.
    Ответить
- guest 09.09.2011 09:56 # 0
  
  ...там даже имена переменных вразумительные...
  Ответить
- TarasB 09.09.2011 10:01 # +2
  
  бульщит
  странно, вроде только первокуры не понимают в булевый тип
  Ответить
- TheHamstertamer 10.09.2011 14:08 # 0
  
  >Delphi
  >работа
  хладная притча, отрок
  Ответить
- TheHamstertamer 10.09.2011 19:29 # 0
  
  Тарас, а зачем в делфи префикс "T"?
  Ответить
  - TarasB 10.09.2011 19:39 # +2
    
    Это удобно.
    Пишешь функцию
    DoSomething(GameUnit: TGameUnit)
    и не надо ничего придумывать, чтобы имя переменной не совпало с именем типа.
    Ответить
    - TheHamstertamer 10.09.2011 19:45 # 0
      
      оуу
      ясно
      Ответить
    - roman-kashitsyn 10.09.2011 22:14 # +5
      
      А в java можно написать
      String String(String String);
      Ответить
      
      inkanus-gray 10.09.2011 22:34 # +5
      
      Совсем как в китайской поэме «Ши ши ши ши ши».
      
      В PL/1 даже ключевые слова языка не были зарезервированы, поэтому допускался код:
      IF ELSE=THEN THEN THEN; ELSE ELSE
      Ответить
      
      Lure Of Chaos 11.09.2011 01:23 # −1
      
      низя
      Ответить
      
      roman-kashitsyn 11.09.2011 15:27 # 0
      
      Учите java, товарищ
      Ответить
      
      Lure Of Chaos 12.09.2011 12:03 # 0
      
      это вы учите, про абстрактные методы, "This method requires a body instead of a semicolon" :-Р
      Ответить
      
      roman-kashitsyn 12.09.2011 12:19 # 0
      
      Это я в интерфейсе объявил :-P
      Ответить
      
      Lure Of Chaos 12.09.2011 12:21 # 0
      
      ладно, выкрутился :D
      Ответить
      
      TheHamstertamer 11.09.2011 15:25 # 0
      
      tcl:
      set set set
      Ответить
      
      TarasB 11.09.2011 16:38 # 0
      
      Bydlo Bydlo(Bydlo Bydlo);
      Ответить
      
      roman-kashitsyn 11.09.2011 16:49 # +2
      
      Попахивает баттхёртом...
      Ответить
      
      TarasB 11.09.2011 16:51 # +1
      
      Ну да, меня затроллили тем, что в Java можно делать такие вещи, и у меня случился баттхёрт.
      Ответить
      
      roman-kashitsyn 11.09.2011 16:53 # 0
      
      Эх, в Java можно и не такие вещи делать... но это ровным счётом ничего не значит.
      Ответить
      
      Uhehesh 11.09.2011 16:58 # +1
      
      Ага.
      Краткий список вещей, которые можно делать в Java, тут: http://govnokod.ru/java
      Ответить
      
      TarasB 11.09.2011 17:04 # +2
      
      Спасибо, почитаю.
      Ответить
  - CPPGovno 10.09.2011 21:03 # 0
    
    Не скомпилируется без T:
    DoForGameUnit(GameUnit: GameUnit)
    Придумать нормальные названия дельфины не в состоянии. Под водой тяжело думается. Давление на глубине большое. Плющит.
    Ну вы видели их:
    Form1
    TForm1
    Edit1
    и тд в коде.
    Язык не дисциплинирует.
    Ответить
    - TarasB 10.09.2011 21:05 # +4
      
      TRoll
      Ответить
      
      CPPGovno 10.09.2011 23:34 # −2
      
      TTarasB, ты очень странный тип.
      Яд с собой в сумочке не носишь? Гном штоле? Тебе в пору поставить аватарку дельфина.
      http://www.gamedev.ru/art/forum/?id=5592
      Ответить
      
      SmackMyBitchUp 11.09.2011 07:31 # 0
      
      А вам - жирного троллоло
      Ответить
      
      CPPGovno 11.09.2011 08:47 # +3
      
      >TRoll
      Дельфипроблема?
      Чего это я вдруг Roll?
      TTroll же!
      А то и TFat32Troll
      Ответить
    - SmackMyBitchUp 10.09.2011 21:15 # 0
      
      Ваши варианты, пожалуйста.
      Ответить
    - inkanus-gray 10.09.2011 22:38 # 0
      
      Без T компилируется. Варианты стиля:
      DoForGameUnit(aGameUnit: GameUnit)
      DoForGameUnit(GameUnit: GameUnit_type)
      
      В C++ скомпилируется объявление int int;?
      Ответить
      
      TarasB 10.09.2011 23:16 # +2
      
      > aGameUnit: GameUnit
      
      А все внутренние поля начинать с f? Нет, неудобно, так как название типа пишется реже, чем имя переменной.
      
      > GameUnit: GameUnit_type
      
      Некрасиво, дольше набирать. Плюс только один - исключается тавтология названия типа с названием переменной на букву T, например
      Roll: TRoll;
      Troll: TTroll; // ошибка
      Но это случается редко, со мной только один раз.
      Ответить
      
      CPPGovno 10.09.2011 23:26 # 0
      
      Roll: TRoll; Troll: TTroll; // ошибка
      Дельфинапроблемы.
      Ответить
      
      TarasB 10.09.2011 23:32 # 0
      
      Регистропроблемы.
      Я бы запретил одно и то же слово писать в разных местах разным регистром. И запретил бы объявлять разные имена, отличающиеся только регистром.
      Ответить
      
      CPPGovno 11.09.2011 08:53 # 0
      
      >Я бы запретил
      А вы прямо комитет стандартизации дельфи. Действуйте тогда.
      
      >Регистропроблемы.
      Ага, а создал их Вирт, а Борланд перенёс эти проблемы в свой язык. И вы ещё считаете, что это не дельфинопроблемы?
      Ответить
      
      inkanus-gray 11.09.2011 19:08 # 0
      
      Так в Дельфи имена, отличающиеся только регистром, создать нельзя, а в Си — можно, а потом долго выяснять, почему не работает. Это сипроблемы.
      Ответить
      
      roman-kashitsyn 12.09.2011 08:32 # +1
      
      Не знаю, мне нравиться подход, который используется сейчас во многих языках: названия типов с большой буквы, всё остальное (функции, имена переменных) - с маленькой.
      Ответить
      
      Lure Of Chaos 12.09.2011 12:00 # 0
      
      лингвисты негодуют: как это так, имена собственные - со маленькой строчной, а нарицательные - с большой прописной?
      Ответить
      
      CPPGovno 10.09.2011 23:28 # +1
      
      >В C++ скомпилируется объявление int int;?
      Нет, но мой ник вы знаете и хорошо.
      Ответить
Добавить комментарий
Ошибка компиляции комментария:

Гости могут высказаться только во вторник, пятницу или субботу
Помни, guest, за тобой могут следить!

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

[b]жирный[/b] — жирный

[i]курсив[/i] — курсив

[u]подчеркнутый[/u] — подчеркнутый

[s]перечеркнутый[/s] — перечеркнутый

[blink]мигающий[/blink] — мигающий

[color=red]цвет[/color] — цвет (подробнее)

[size=20]размер[/size] — размер (подробнее)

[code=<language>]some code[/code] (подробнее)

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

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

Pascal / Говнокод #7817

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

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