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

    +96

    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
    procedure TForm1.RegHttpRedirect(Sender: TObject; var dest: String;
  var NumRedirect: Integer; var Handled: Boolean;
  var VMethod: TIdHTTPMethod);
begin
Log('Redirect № ' + IntToStr(NumRedirect)+ ' - '+ Dest ,  true, MainClr);
end;

procedure TForm1.HTTPCoreStatus(ASender: TObject; const AStatus: TIdStatus;
  const AStatusText: String);
begin
Log('Статус: '+ AStatusText, true, MainClr);
end;

{procedure TForm1.RegHttpW0rk(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin

end;}

    лошарский код

    Запостил: megaruliz, 28 Февраля 2011

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

    • ava Lure Of Chaos 01.03.2011 01:03 # 0

      лошадиный код.
      просто заглушки
      Ответить

    • ava istem 01.03.2011 04:25 # +1

      2 megaruliz -> давайте Вашу, не "лошарскую" версию.
      Поржём тоже.
      Ответить

    • ava ctm 01.03.2011 06:14 # +5

      TForm1 - либо говнокод, либо чел патается понять, когда приходят эвенты в тестовом проекте.
      скорее второе:)
      Ответить

      • ava nikitasnv 02.03.2011 12:58 # 0

        А чем TForm1 не угодил?
        Я например, всегда так делаю: TForm1 – главная форма, остальные с описанием (TForm2Settings, TForm3Print и т.д.)
        Ответить

        • ava TarasB 02.03.2011 13:01 # 0

          А потом пользователь ухахатывается, глядя на прогу через WinSight.
          Ответить

          • ava nikitasnv 02.03.2011 13:22 # 0

            1. Далеко не каждый пользователь знает хотя бы о существовании WinSight;
            2. TForm2 и т.д. не вызывает даже ассоциаций со смехом;
            3. Мне так удобнее т.к. по префиксу TForm явно понятно что я обращаюсь к форме.
            Если знаете альтернативы такому именованию (с той же удобностью) – покажите пример.
            Ответить

            • ava ctm 02.03.2011 16:54 # +3

              frmMain, frmSettings, frmPrint, btnOk, edtMinValue, chbUseFilter, tvDirectories, dlgSaveFile. расшифровывать требуется или и так все ясно?
              Ответить

              • ava bugmenot 02.03.2011 17:09 # +1

                frm - годный префикс, но отдаёт VisualBasic`ом
                Ответить

              • ava nikitasnv 02.03.2011 18:36 # 0

                Это несомненно хороший вариант.
                Но я имел ввиду нечто другое, а именно то, что без префиксов довольно неудобно работать. И то, что некоторые ими пренебрегают ради "красивости" названия.
                Ответить

        • ava bugmenot 02.03.2011 14:31 # 0

          годно, годно.
          никогда больше бойлерплейты не буду переименовывать.
          Ответить

        • ava ctm 02.03.2011 16:51 # 0

          Тем, что в проекте где работает больше одного человека ИЛИ проект нужен дольше, чем на неделю (т.е. он не тестовый), то это название ОЧЕНЬ информативно и очевидно.
          frmMain: TfrmMain; // ну или иной стандарт имен
          Ответить

    • ava megaruliz 07.05.2011 21:19 # −1

      мля сами написали напиши говно код
      Ответить

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