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

    +91.1

    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
    s := TStringList.Create;
  LocalIniFile.ReadSection(sPad, s);
  for x := 0 to ActionListMenu.ActionCount - 1 do
  begin
    for y := 0 to 9 do
    begin
      for z := 0 to s.Count - 1 do
      begin
        if (Length(s[z]) <> Length('Tag0')) and (s[z] = 'Tag' + IntToStr(ActionListMenu[x].Tag + y)) then
        begin
          try
            ActionListMenu[x].Execute;
          except
          end;
        end;
      end;
    end;
  end;
  s.Free;

    Эм, ну комментарии излишни?

    Запостил: Drone, 22 Сентября 2009

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

    • ava Oleg_quadro 22.09.2009 13:27 # +2

      прокомментируй
      Ответить

    • ava guest 23.09.2009 02:03 # −1

      Дельфи такой читабельный язык!
      Ответить

    • ava guest 23.09.2009 02:04 # −3

      А TStringList - это ваще улёт. Расскажите парням про параметризацию типов (которая уже лет сорок как придумана), лол.
      Ответить

    • ava guest 27.09.2009 11:24 # −1

      Объясняю: если у в цикле всего одна инструкция - нахера писать begin... end;
      Они лишние!
      Ответить

    • ava guest 28.09.2009 09:48 # 0

      Ещё и работа с полем tag - тоже говнокод. tag-hack, хоть для этого и предназначен, но порождает такой нечитабильный и небогоугодный код, что можно нереально убить мозг, разбирая, что-же ты туда клал месяц назад. Самое приятное, когда туда кладёшь указатель на что-нибудь, а ещё лучше, когда отдельные биты этого поля - что-нибудь значат... Вот тут начинаеться веселье. :)
      Ответить

    • ava guest 28.10.2009 16:46 # −1

      if (Length(s[z]) <> Length('Tag0')) - а вам не кажется вот это странным? по не так автор имел ввиду именно это
      Ответить

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