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

    Всего: 2

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

    +97

    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
    /// До этой строчки еще больше 1000 строк кода (И это всё в ОДНОЙ процедур)
 finally
    if Main.RecordCount > 0
    then Main.First;
    Main.EnableControls;
    Panel2.Color:=clLime;
    lbTimeSpend.Caption:='Âðåìÿ çàòðà÷åíî:'+TimeToStr(time()-TimeWork);
  end;

  Exit;

  try
    if TmpCollect_Skd.IsSelectAll then
    begin
      Askd_count := TmpCollect_Skd.RxDBGrid1.DataSource.DataSet.RecordCount;
    end
 /// После этой строки еще более 1000 строк кода всё в этой же процедуре!

    Продолжим. Вот так люди используют Exit;

    goodron, 28 Апреля 2010

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

  3. Pascal / Говнокод #3124

    +101

    1. 1
    2. 2
    3. 3
    if IntToStr(n) = '2' then begin
  ///  Еще куча говнокода
end;

    Устроился я тут работать в одну компанию... Начинаю серию публикаций... Название компании пока не буду озвучивать - еще уволят нах...
    Начнём с чего-нибудь простенького :)

    goodron, 28 Апреля 2010

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