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

    Всего: 1

  2. 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)