|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.12.2007, 23:26 | #1 |
Пользователь
Регистрация: 02.12.2007
Сообщений: 13
|
Строки в Delphi.
Задача: Дана строка, в которой содержится текст, включающий в себя как русские, так и английские слова. Подсчитать каких букв больше: русских или английских?
Подскажите пож., как именно определить и подсчитать кол-во английских/русских букв. Ну а в идеале помогите написать программу. Буду очень признателен, если поможете... |
02.12.2007, 23:31 | #2 |
Участник клуба
Регистрация: 26.10.2007
Сообщений: 1,244
|
Просто тупо применить CASE.
Русские буквы в одну переменную, англ. в другую. Потом сравнить кол-во символов.
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым, Попытка глубже понимать уже попахивает литром... |
02.12.2007, 23:38 | #3 |
Пользователь
Регистрация: 02.12.2007
Сообщений: 13
|
Спасибо. А можешь кинуть код, плиз.
|
03.12.2007, 00:06 | #4 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Коды английских букв <=127, а коды русских >127...
Вот и вся петрушка... |
03.12.2007, 00:52 | #5 |
Пользователь
Регистрация: 02.12.2007
Сообщений: 13
|
Эх.. Признаю своё полное нубство в Дельфи. Но у меня совершенно не получается.. Может кто-нибудь кинет исходник?
|
03.12.2007, 02:27 | #6 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Код буквы - Ord(буква)
Символ в тексте - Text[i] Перебираем от первой до последней (это Length(текст)) и если ORD больше 127 - плюс 1 к русским, меньше (но больше 48, это код нуля) - плюс к английским... |
03.12.2007, 08:12 | #7 |
Тот ещё
Старожил
Регистрация: 14.11.2007
Сообщений: 2,242
|
Код:
|
03.12.2007, 11:26 | #8 | |
Пользователь
Регистрация: 03.12.2007
Сообщений: 12
|
Цитата:
Уважаемый а как же "ё" и "Ё"?
no comments
|
|
03.12.2007, 11:38 | #9 |
Тот ещё
Старожил
Регистрация: 14.11.2007
Сообщений: 2,242
|
Ё-маё!!!
Код:
|
03.12.2007, 17:58 | #10 |
Пользователь
Регистрация: 02.12.2007
Сообщений: 13
|
Премного благодарен.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Delphi. Строки. | inmate | Помощь студентам | 2 | 19.05.2008 18:14 |
считать из файла две строки, вывести на экран символы первой строки, которые отсутствуют во второй | gotex | Помощь студентам | 4 | 08.05.2008 02:27 |
#Delphi Строки | forumu | Помощь студентам | 3 | 24.12.2007 23:31 |
Обработка XML строки при загрузке dbf в Delphi | SereJa1020 | БД в Delphi | 1 | 18.12.2007 18:28 |
Выполнение командной строки в Delphi | Alar | Общие вопросы Delphi | 0 | 29.10.2006 19:44 |