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

    +94.7

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    I := 0;
        While clbDBList.ItemIndex < I+1 do // пробегаемся циклом по списку баз данных.
          begin
            If clbDBList.Checked[Ix] then // Если база отмечена, производим её обновление.
              begin
                  //тут действия.. 
              end;
            Inc(I);
          end;

    В общем условие While цикла.. когда я увидел.. долго думал что я такого курил, когда писал это... )))

    Запостил: XIO, 17 Августа 2009

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

    • ava Lolwho 17.08.2009 21:45 # 0

      Бывает)..
      Ответить

    • ava guest 19.08.2009 02:03 # 0

      эээ кэп ? меня смущает только Ix откуда она тут
      Ответить

    • ava guest 20.08.2009 15:37 # +1

      guest, ну не особо он будет выполняться. В цикл по идее вообще попасть не должен при такой инициализации i.
      Ответить

    • ava guest 28.08.2009 12:24 # 0

      Да Ix - это вообще опечатка тут.. Нещайно забыл x убрать, там это тоже что и I.. а в цикл действительно даже не попадал)))
      Ответить

    • ava guest 29.09.2009 12:26 # 0

      clbDBList.ItemIndex < I+1 переделаем clbDBList.ItemIndex > I+1 Ну вот , До выделенного пробегаемся.
      Ответить

    • ava MITtMIq 25.08.2021 07:22 # 0

      В палате воцарилось молчание. Он думал, что, конечно, проще всего принять предложение и получить какую-то передышку, а уйти он всегда сможет. И ещё он думал о том, что нечестно так поступать с этими людьми. Ни они его не знают, ни он их, хотя последнее не имело значения. Ещё до всего этого он думал, что Даня, искренний и добрый, стал для него действительно братом, и он, уйдя, обязательно к нему вернётся. Подспудно его душа, истосковавшаяся по ласке и нежности, тянулась к этой семье. Но нет, Он не может так поступить.
      Ответить

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