![]() |
Ручная замена регистра (когда UpCase не работает)
Как известно с кирилицей UpCase не пашет!
Итак! Исправте меня - нуба! ) text:= // это текст в неизвестном регистре! procedure perevod; begin res := openResource('/baza.txt'); for pos:= 0 to length(text) do // 0-0-0-0-0- begin case:=getChar(text, pos); if case='А' then case='а'; if case='Б' then case='б'; if case='В' then case='в'; if case='Г' then case='г'; if case='Д' then case='д'; if case='Е' then case='е'; if case='Ё' then case='ё'; if case='Ж' then case='ж'; if case='З' then case='з'; if case='И' then case='и'; if case='Й' then case='й'; if case='К' then case='к'; if case='Л' then case='л'; if case='М' then case='м'; if case='Н' then case='н'; if case='О' then case='о'; if case='П' then case='п'; if case='Р' then case='р'; if case='С' then case='с'; if case='Т' then case='т'; if case='У' then case='у'; if case='Ф' then case='ф'; if case='Х' then case='х'; if case='Ц' then case='ц'; if case='Ч' then case='ч'; if case='Ш' then case='ш'; if case='Щ' then case='щ'; if case='Ы' then case='ы'; if case='Ъ' then case='ъ'; if case='Ь' then case='ь'; if case='Э' then case='э'; if case='Ю' then case='ю'; if case='Я' then case='я'; dcase:=dcase+ord(case);; end; text:=dcase; ПОМОГИТЕ! НЕ ПОЛУЧАЕТСЯ! :crazy: |
Ответ: Ручная замена регистра (когда UpCase не работает)
Я бы сделал примерно так:
PHP код:
|
Ответ: Ручная замена регистра (когда UpCase не работает)
можно и так
PHP код:
|
Re: Ручная замена регистра (когда UpCase не работает)
ПОЛЕЗНО СПАСИБО!
![]() |
Часовой пояс GMT +4, время: 23:25. |
vBulletin® Version 3.6.5.
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Перевод: zCarot