Приветствую Вас, hurer! Стандартной функции перевода символа из прописного в строчный нет. Зато есть обратная UpCase, которая переводит из строчной в прописную. С помощью нее можно найти пары строчной и прописной букв и использовать. Например, вот так. С уважением, DSota.
Приложение: Ответ отправлен: 13.10.2004, 19:27 Отправитель: DSota Отвечает Tancho
Доброе время суток, hurer! К ответу предидущего въпросу №526, а он по существо совпадает с настоящий могу добавить - того что там я ответиль относится только для заглавные буквы из Латинского алфавита!Для другова алфавита надо писать свою функцию или проседуру! Ответ отправлен: 14.10.2004, 10:49 Отправитель: Tancho Отвечает Boriss
Здравствуйте, hurer! Точно так же, как описано в ответе на вопрос № 526 :)) Ответ отправлен: 13.10.2004, 17:44 Отправитель: Boriss Отвечает Ayl
Доброе время суток, hurer! Английские очень просто: if ch in ['A'..'Z'] then ch := chr (ord (ch) + $20); С русскими сложнее, т.к. они не упорядочены. Можно так: if ch in ['А'..'П'] then ch := chr (ord (ch) + $20); if ch in ['Р'..'Я'] then ch := chr (ord (ch) + $50); if ch = 'Ё' then ch := 'ё'; Либо с помощью массива перекодировки: Const char_recode = 'АаБбВвГгДдЕеЁёЖжЗзИиЙйКкЛлМмНнОоПпРрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯя'; Function RusLower (ch : Char) : Char; var p : Byte; begin p := Pos (ch, char_recode); if p = 0 then RusLower := ch else RusLower := char_recode [p + 1]; end; Function RusUpper (ch : Char) : Char; var p : Byte; begin p := Pos (ch, char_recode); if p = 0 then RusUpper := ch else RusUpper := char_recode [p - 1]; end; Тогда общие функции перекодировки будут выглядеть
так: Function ToLower (ch : Char) : Char; begin if ch in ['A'..'Z'] th
en ToLower := chr (ord (ch) + $20) else ToLower := RusLower (ch); end; Function ToUpper (ch : Char) : Char; begin if ch in ['a'..'z'] then ToUpper := chr (ord (ch) - $20) else ToUpper := RusUpper (ch); end;
Ответ отправлен: 13.10.2004, 18:06 Отправитель: Ayl Отвечает sir henry
Доброе время суток, hurer! Можно использовать системную функцию (к сожалению справочника по функциям ДОС у меня нет, поэтому попробуйте найти самостоятельно), а можно составить двумерный массив преобразовывать по найденому индексу. Ответ отправлен: 14.10.2004, 06:07 Отправитель: sir henry Отвечает Tigran K. Kalaidjian
Здравствуйте, hurer! Смотря для какой таблицы символов. Для ASCII(английская часть): прибавляйте 20h к номеру символа в таблице. Ответ отправлен: 15.10.2004, 18:38 Отправитель: Tigran K. Kalaidjian
Форма отправки вопроса
Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+
или отправлять вопросы с сайта по адресу:
http://rusfaq.ru/cgi-bin/Message.cgi.
