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)