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

    Всего: 2

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

    +106.2

    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
    /////////////////////////// удаление спецсимволов
Prbl:=' ';
WS_h:=AnsiReplaceText(WS_h, Chr(13), Prbl);
WS_h:=AnsiReplaceText(WS_h, Chr(10), Prbl);
WS_h:=AnsiReplaceText(WS_h, ' ', Prbl);
WS_h:=AnsiReplaceText(WS_h, '           ', Prbl);
WS_h:=AnsiReplaceText(WS_h, '          ', Prbl);
WS_h:=AnsiReplaceText(WS_h, '         ', Prbl);
WS_h:=AnsiReplaceText(WS_h, '        ', Prbl);
WS_h:=AnsiReplaceText(WS_h, '       ', Prbl);
WS_h:=AnsiReplaceText(WS_h, '      ', Prbl);
WS_h:=AnsiReplaceText(WS_h, '     ', Prbl);
WS_h:=AnsiReplaceText(WS_h, '    ', Prbl);
WS_h:=AnsiReplaceText(WS_h, '   ', Prbl);
WS_h:=AnsiReplaceText(WS_h, '  ', Prbl);
/////////////////////////////////////////////////
WS_h:=AnsiReplaceText(WS_h, '<span class=SpellE>', '');
/////////////////////////// удаление спецсимволов

    Красиво оформленный код - залог успеха!

    Temnenkov, 09 Апреля 2010

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

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

    +110

    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
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    Function IsBigLet(Let: String): Boolean;
var r: bool;
begin
r:=false;
if pos('Й',Let)>0 then r:=true;
if pos('Ц',Let)>0 then r:=true;
if pos('У',Let)>0 then r:=true;
if pos('К',Let)>0 then r:=true;
if pos('Е',Let)>0 then r:=true;
if pos('Н',Let)>0 then r:=true;
if pos('Г',Let)>0 then r:=true;
if pos('Ш',Let)>0 then r:=true;
if pos('Щ',Let)>0 then r:=true;
if pos('З',Let)>0 then r:=true;
if pos('Х',Let)>0 then r:=true;
if pos('Ф',Let)>0 then r:=true;
if pos('Ы',Let)>0 then r:=true;
if pos('В',Let)>0 then r:=true;
if pos('А',Let)>0 then r:=true;
if pos('П',Let)>0 then r:=true;
if pos('Р',Let)>0 then r:=true;
if pos('О',Let)>0 then r:=true;
if pos('Л',Let)>0 then r:=true;
if pos('Д',Let)>0 then r:=true;
if pos('Ж',Let)>0 then r:=true;
if pos('Э',Let)>0 then r:=true;
if pos('Я',Let)>0 then r:=true;
if pos('Ч',Let)>0 then r:=true;
if pos('С',Let)>0 then r:=true;
if pos('М',Let)>0 then r:=true;
if pos('И',Let)>0 then r:=true;
if pos('Т',Let)>0 then r:=true;
if pos('Б',Let)>0 then r:=true;
if pos('Ю',Let)>0 then r:=true;
Result:=r;
end;

    Немножко индусского кода!

    Temnenkov, 09 Апреля 2010

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