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

    Всего: 2

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

    +97.4

    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
    if (aDebtor.Banknummer = '') then
        begin
            s := s + ',""'; {Banknummer}
        end
        else
        begin
            s := s + ',"'+TrimRight(Format('%-.10s',[aDebtor.Banknummer]))+'"'; {Banknummer}
        end;
        if (aDebtor.Gironummer = '') then
        begin
            s := s + ',""'; {postbankrekening}
        end
        else
        begin
            s := s + ',"'+TrimRight(Format('%-.10s',[aDebtor.Gironummer]))+'"'; {postbankrekening}
        end;

    Гениально... А можно мне такой же травы как у этих голландцев?

    И такое повторяется еще много раз.

    Drone, 26 Марта 2010

    Комментарии (0)
  3. Pascal / Говнокод #1880

    +91.1

    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
    19. 19
    s := TStringList.Create;
      LocalIniFile.ReadSection(sPad, s);
      for x := 0 to ActionListMenu.ActionCount - 1 do
      begin
        for y := 0 to 9 do
        begin
          for z := 0 to s.Count - 1 do
          begin
            if (Length(s[z]) <> Length('Tag0')) and (s[z] = 'Tag' + IntToStr(ActionListMenu[x].Tag + y)) then
            begin
              try
                ActionListMenu[x].Execute;
              except
              end;
            end;
          end;
        end;
      end;
      s.Free;

    Эм, ну комментарии излишни?

    Drone, 22 Сентября 2009

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