Программирование Turbo Pascal 7 и Delphi 7, Обращайтесь кто интересуется |
Здравствуйте, гость ( Вход | Регистрация )
Программирование Turbo Pascal 7 и Delphi 7, Обращайтесь кто интересуется |
Aug 24 2005, 14:35
Сообщение
#1
|
|
Мега постер Группа: Posters Сообщений: 1,337 Регистрация: 15.8.2005 Из: Москва Пользователь №: 45 |
Можете сдесь задавать свои вопросы по этой теме.
-------------------- http://www.fds-net.ru Филиал Дома Студента МГУ
|
|
|
Jul 12 2006, 11:15
Сообщение
#2
|
|
Мега постер Группа: Posters Сообщений: 1,337 Регистрация: 15.8.2005 Из: Москва Пользователь №: 45 |
короче там где ты выводишь очередной символ добавь эти строчки
Код if (Ord(str[i])>=192) and (Ord(str[i])<=239) then str[i]:=Chr(Ord(str[i])-64); if (Ord(str[i])>=240) and (Ord(str[i])<=255) then str[i]:=Chr(Ord(str[i])-16); но только при открытии блокнотом выходной файл естественно некорректно будет отображаться зато на экране паскаля все нормально должно быть -------------------- http://www.fds-net.ru Филиал Дома Студента МГУ
|
|
|
Текстовая версия | Сейчас: 13th May 2024 - 20:41 |