Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 1
Регистрация: 10.03.2013
Сообщений: 16
1

Кодировка

10.03.2013, 23:01. Просмотров 694. Ответов 6
Метки нет (Все метки)


Вот код:

Delphi
1
2
3
4
var i: Byte;
begin
  for i := 192 to 223 do Memo1.Lines.Add(Char(i));
end;
Вместо русский букв от А до Я, в мемо выводит иероглифы, как исправить? Delphi XE3
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.03.2013, 23:01
Ответы с готовыми решениями:

Кодировка XP и 7
В общем случилась такая беда. Работал работу на Delphi на машине под XP, потом наш отдел...

Кодировка
Доброго времени суток всем, вот решил написать простой ВК Клиент, но есть кое какие проблемы с...

Кодировка
Доброго времени суток. Подскажите пожалуйста. Составить программу, которая бы определяла...

Кодировка
И так, проблема. Я бы даже сказал катастрофа! На работе пишу проект, сначала писал на XP в Delphi...

6
3729 / 2683 / 613
Регистрация: 08.06.2007
Сообщений: 9,240
Записей в блоге: 4
10.03.2013, 23:10 2
Цитата Сообщение от dzhonrus Посмотреть сообщение
Add(Char(i));
Delphi
1
Add(AnsiChar(i));
1
0 / 0 / 1
Регистрация: 10.03.2013
Сообщений: 16
10.03.2013, 23:11  [ТС] 3
Цитата Сообщение от palva Посмотреть сообщение
Delphi
1
Add(AnsiChar(i));

Благодарю!
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
30861 / 20184 / 7874
Регистрация: 22.10.2011
Сообщений: 35,048
Записей в блоге: 6
10.03.2013, 23:23 4
Цитата Сообщение от palva Посмотреть сообщение
Add(AnsiChar(i));
А теперь представь, что получит пользователь, запустивший такой код на НЕрусифицированной Windows. Вот, например, что:
Кодировка

Ничего общего с символами кириллицы здесь нет. Когда уже начнете думать не только о том, чтобы запустить на своей машине, а чтобы стабильно работало везде? Тем более, что XE3 - это далеко не Д7, у нее есть все средства для этого.
1
0 / 0 / 1
Регистрация: 10.03.2013
Сообщений: 16
10.03.2013, 23:29  [ТС] 5
Цитата Сообщение от UI Посмотреть сообщение
А теперь представь, что получит пользователь, запустивший такой код на НЕрусифицированной Windows. Вот, например, что:
Вложение 242462
Ничего общего с символами кириллицы здесь нет. Когда уже начнете думать не только о том, чтобы запустить на своей машине, а чтобы стабильно работало везде? Тем более, что XE3 - это далеко не Д7, у нее есть все средства для этого.
Запуская этот код на Д7 без AnsiChar, проблем не было, все работало. Но запустив ХЕ3 возникла такая вот проблема. Может ты подскажешь как тогда исправить это?
0
3729 / 2683 / 613
Регистрация: 08.06.2007
Сообщений: 9,240
Записей в блоге: 4
10.03.2013, 23:48 6
Можно так:
Delphi
1
2
3
4
var i: Char;
begin
  for i := 'А' to 'Я' do Memo1.Lines.Add(i);
end;
Русский язык в ОС все равно должен быть.

Добавлено через 13 минут
Delphi
1
2
3
4
var i: Integer;
begin
  for i := 1040 to 1071 do Memo1.Lines.Add(Char(i));
end;
Но это уже не будет работать в Delphi 7
1
0 / 0 / 1
Регистрация: 10.03.2013
Сообщений: 16
10.03.2013, 23:48  [ТС] 7
Цитата Сообщение от palva Посмотреть сообщение
Можно так:
Delphi
1
2
3
4
var i: Char;
begin
  for i := 'А' to 'Я' do Memo1.Lines.Add(i);
end;
Русский язык в ОС все равно должен быть.
Надо было изначально так делать, а я замудрил как то. Спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.03.2013, 23:48

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

кодировка
Когда делаю парс текста с сайта http://code-vk.ru/random/ У меня в memo1 выдает плохую...

Кодировка
Кодировка. Как получить так? Или слово которое - Keew.

Кодировка
Может у кого есть пример определния кодировки текста Оптимлаьный вариант чтоб узнавал каждую А...

Кодировка
Добрый день. Хочу с помощью oscdimg.exe на Delphi XE7 реализовать сборки ISO образа видовс из...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.