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

    Всего: 1

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

    +112

    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
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    procedure TfmConf_PA30.btnWritePAClick(Sender: TObject);
begin
   if WriteByVariable(11,lbLog6) then begin
    if WriteByVariable(12,lbLog6) then begin
     if WriteByVariable(13,lbLog6) then begin
      if WriteByVariable(14,lbLog6) then begin
       if WriteByVariable(15,lbLog6) then begin
        if WriteByVariable(16,lbLog6) then begin
         if WriteByVariable(17,lbLog6) then begin
          if WriteByVariable(18,lbLog6) then begin
           if WriteByVariable(19,lbLog6) then begin
            if WriteByVariable(20,lbLog6) then begin
             if WriteByVariable(21,lbLog6) then begin
              if WriteByVariable(22,lbLog6) then begin
               if WriteByVariable(23,lbLog6) then begin
                if WriteByVariable(24,lbLog6) then begin
                 if WriteByVariable(25,lbLog6) then begin
                  if WriteByVariable(26,lbLog6) then begin
                   if WriteByVariable(27,lbLog6) then begin
                    if WriteByVariable(28,lbLog6) then begin
                     if WriteByVariable(29,lbLog6) then begin
                      if WriteByVariable(30,lbLog6) then begin
                       lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (30)');
                     end else
                      lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (29)');
                    end else
                     lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (28)');
                   end else
                    lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (27)');
                  end else
                   lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (26)');
                 end else
                  lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (25)');
                end else
                 lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (24)');
               end else
                lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (23)');
              end else
               lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (22)');
             end else
              lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (21)');
            end else
             lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (20)');
           end else
            lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (19)');
          end else
           lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (18)');
         end else
          lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (17)');
        end else
         lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (16)');
       end else
        lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (15)');
      end else
       lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (14)');
     end else
      lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (13)');
    end else
     lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (12)');
   end else
    lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (11)');
end;

    может циклом надо было? :)
    for i:=11 to 40 do...

    pethead, 22 Октября 2010

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