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

    • Бывает)..
      Ответить
    • эээ кэп ? меня смущает только Ix откуда она тут
      Ответить
    • guest, ну не особо он будет выполняться. В цикл по идее вообще попасть не должен при такой инициализации i.
      Ответить
    • Да Ix - это вообще опечатка тут.. Нещайно забыл x убрать, там это тоже что и I.. а в цикл действительно даже не попадал)))
      Ответить
    • clbDBList.ItemIndex < I+1 переделаем clbDBList.ItemIndex > I+1 Ну вот , До выделенного пробегаемся.
      Ответить
    • В палате воцарилось молчание. Он думал, что, конечно, проще всего принять предложение и получить какую-то передышку, а уйти он всегда сможет. И ещё он думал о том, что нечестно так поступать с этими людьми. Ни они его не знают, ни он их, хотя последнее не имело значения. Ещё до всего этого он думал, что Даня, искренний и добрый, стал для него действительно братом, и он, уйдя, обязательно к нему вернётся. Подспудно его душа, истосковавшаяся по ласке и нежности, тянулась к этой семье. Но нет, Он не может так поступить.
      Ответить

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