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

    +115.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
    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
    case Key of
      'F','f','а' : Key:='А';
      '<',',','б' : Key:='Б';
      'D','d','в' : Key:='В';
      'U','u','г' : Key:='Г';
      'L','l','д' : Key:='Д';
      'T','t','е' : Key:='Е';
      '~','`','ё' : Key:='Ё';
      ':',';','ж' : Key:='Ж';
      'P','p','з' : Key:='З';
      'B','b','и' : Key:='И';
      'Q','q','й' : Key:='Й';
      'R','r','к' : Key:='К';
      'K','k','л' : Key:='Л';
      'V','v','м' : Key:='М';
      'Y','y','н' : Key:='Н';
      'J','j','о' : Key:='О';
      'G','g','п' : Key:='П';
      'H','h','р' : Key:='Р';
      'C','c','с' : Key:='С';
      'N','n','т' : Key:='Т';
      'E','e','у' : Key:='У';
      'A','a','ф' : Key:='Ф';
      '{','[','х' : Key:='Х';
      'W','w','ц' : Key:='Ц';
      'X','x','ч' : Key:='Ч';
      'I','i','ш' : Key:='Ш';
      'O','o','щ' : Key:='Щ';
      'M','m','ь' : Key:='Ь';
      '}',']','ъ' : Key:='Ъ';
      '"','''','э' : Key:='Э';
      'S','s','ы' : Key:='Ы';
      '>','.','ю' : Key:='Ю';
      'Z','z','я' : Key:='Я';
     end;

    висит на процедуре Edit1KeyPress :)

    Запостил: guest, 06 Мая 2009

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

    • GByte:
      ЫЫЫЫ
      Ответить
    • Мастер Кода:
      А что здесь говнокодного .. не удивлюсь увидеть такое в сорсах крупных проектов
      Ответить
    • MrHant:
      А по коду клавиши такое сделать не проще разве было?
      Ответить
    • Dosa:
      AnsiUpperCase никто не отменял, а еще мона клавиатуру принудительно на русский переключить
      Ответить
    • Сан Саныч:
      А автор ещё и с алфавитом не особо дружит... :)
      Ответить
    • Хохол:
      Как по мне - определять лучший коммент нужно по принципу (напиши как должно быть) вместо говнокода.
      А просто поржать типа Ха-ха-ха ... любой может..
      Ответить
    • ЭТО ДЛЯ БЛОНДИНОГ ПРОГААА
      Ответить
    • Минус коду, автор не учел остальные раскладки
      Ответить
    • Можно было константы ввести, где бы буквы для замены совпадали по позиции... Я так программу для транслита реализовал всего лишь в паре десятков строк (учитывая бегины, энды и т.п.).

      Глупо и обидно так засирать код, как тут написано :)
      Ответить
    • Он попахивает, но это скорее не говнокод. Он работает и по крайней мере сразу понятно, что он делает. И на создание потрачено не больше времени, чем на полноценную функцию. Такое я обычно прощаю :)
      Ответить
    • Я бы поленился такое писать )
      Ответить
    • какая хорошая программа этот Punto Ыцшесрук
      Ответить
    • Самое глупое, что точка в русской раскладке все равно будет "ю". =)
      Ответить
    • Может там точка и не нужна. например туды надо написать свою фамилию шоб не govnofan а именно фамилию)))
      Ответить

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