|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
06.03.2012, 19:27 | #1 |
Регистрация: 04.02.2012
Сообщений: 7
|
При создании текстового файла не распознается русский шрифт
Borland Turbo Pascal 7.0,
Винда XP Паскаль русифицирован, раскладка переключается нормально, на экран русский текст выводит, но когда я пытаюсь текст написать в файл и открываю его блокнотом обычным, вместо русского шрифта появляется какая-то абракадабра. Прочитал FAQ на нескольких форумах, везде советы как Паскаль русифицировать, но это не помогает сделать запись в файл русским шрифтом, сам-то Паскаль русскую раскладку видит. Может кто-нибудь знает, что можно сделать в данной ситуации? |
06.03.2012, 19:53 | #2 |
Участник клуба
Регистрация: 30.01.2011
Сообщений: 1,578
|
пересохраните файл в юникоде.... то что кодировка то да... ясен факт...
у вас xp какой пак?... раньше подобного не было при использовании каких либо программ?... быть может в самой винде проблемки.... киньте код программы.. проверим.. потестим...
пишу код не только за печеньки
|
06.03.2012, 21:00 | #3 |
Программист
Форумчанин
Регистрация: 27.02.2009
Сообщений: 505
|
проблема в кодировке. паскаль сохраняет в DOS кодировке. решений не знаю, но знаю, что в результате можно изменить кодировку и посмотреть файл
there are no limits when you're software engineer
|
06.03.2012, 21:57 | #4 |
a.k.a. Skull
Форумчанин
Регистрация: 17.11.2009
Сообщений: 963
|
Предыстория:
В нерусифицированом делфи при выводе текста в консоль получалась "абракодабра". Препод подсказал решение, после чего мною был написан юнит encoding: Код:
Код:
P.S. По-правде говоря, сам многого не понимаю, например разницу (в данном случае) между string и ansistring, также вообще не представляю, зачем нужна переменная L. Переписывал на угад, ориентировался на ошибки при компеляции.
Все тривиальное просто
Последний раз редактировалось whatever; 06.03.2012 в 22:16. |
06.03.2012, 22:11 | #5 | |
Delphi Warrior
Старожил
Регистрация: 15.08.2008
Сообщений: 2,502
|
Цитата:
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303 |
|
06.03.2012, 22:18 | #6 |
a.k.a. Skull
Форумчанин
Регистрация: 17.11.2009
Сообщений: 963
|
из-за setlength ?
Если да, то вот еще вариант: Код:
Все тривиальное просто
Последний раз редактировалось whatever; 06.03.2012 в 22:21. |
06.03.2012, 22:23 | #7 | |||||
Delphi Warrior
Старожил
Регистрация: 15.08.2008
Сообщений: 2,502
|
Цитата:
+ ко всему Цитата:
Цитата:
Цитата:
Цитата:
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303 |
|||||
06.03.2012, 22:28 | #8 |
a.k.a. Skull
Форумчанин
Регистрация: 17.11.2009
Сообщений: 963
|
Да уж, разгуляться негде. Теперь вообще не представляю, нафиг он нужен, уже морально устарел...
Все тривиальное просто
|
06.03.2012, 23:11 | #9 | |
Форумчанин
Регистрация: 06.02.2011
Сообщений: 105
|
Цитата:
В Lasarus в настройках компилятора так же выбрал кодировку и текст в файл записывается и читается на русском языке. |
|
07.03.2012, 10:18 | #10 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
Прочитать такие файлы можно любым редактором, который понимает такую кодировку (начиная от встроенного редактора FAR commander, Total Commander и заканчивая Notepad++ и AkelPad). если же, по какой-то скрытой причине нужно, чтобы текстовый файл всё таки был в кодировке ANSI (она же Windows-1251), тогда нужно сделать перекодировку символов из одной кодировки в другую (т.к. кодировка и одна и другая однобайтовая и таблицы есть, то это не составит большого труда. я не помню, был ли пример подобной функции здесь на форуме, но, если надо, легко напишу вас функцию перекодировки.) |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Не отображается русский шрифт | about_pooh | БД в Delphi | 11 | 10.04.2012 16:36 |
Модуль GRAPH портит русский при запуске .exe файла! | Nemo-237 | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 06.03.2011 22:59 |
В чём ошибка при создании файла? | If-then-do | Помощь студентам | 6 | 24.09.2010 20:27 |
Проблема при создании файла (3CH) | Livores | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 2 | 26.05.2010 17:01 |
Как вывести из текстового файла на экран русский текст? | Mischa | Помощь студентам | 8 | 12.03.2008 06:23 |