Форум программистов, компьютерный форум, киберфорум
Lazarus
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
12 / 4 / 1
Регистрация: 29.07.2015
Сообщений: 108
1

При создании таблицы из Lazarus в Excel вместо русских букв пишет ?

26.10.2016, 14:59. Показов 1969. Ответов 2
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.ButtonOtchetClick(Sender: TObject);
var
  wss: String;
  ExcelApp, Workbook, Range, Cell1, Cell2, VData : Variant;
begin
  ExcelApp:= CreateOleObject('Excel.Application'); // открываем Excel
  ExcelApp.Application.EnableEvents:= false; // так будет быстрее
  ExcelApp.Visible:=False; // чтобы не маячил
  Workbook := ExcelApp.WorkBooks.Add; // создали чистую книгу
  ExcelApp.DisplayAlerts := False;
  ExcelApp.Range['D1'] := widestring(UTF8Tocp1251('ИНФОРМАЦИЯ'));
  ExcelApp.Visible := True;
end;
Миниатюры
При создании таблицы из Lazarus в Excel вместо русских букв пишет ?  
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.10.2016, 14:59
Ответы с готовыми решениями:

Вместо русских букв знаки вопроса при создании XML
Добрый день! В бд все таблицы в кодировке utf-8. при создании xml-файла посредством php вместо...

При создании диалогового приложения вместо русских букв получаются краказябрики
При создании диалогового приложения вместо русских букв получаются краказябрики, как это исправить?

Почему при копировании из Matcad 15 в Word вместо русских букв получаются какие-то "каракули" - непонятные символы вместо букв
Я пользуюсь Matcad 15. Почему при копировании набранного текста из рабочей области Matcad 15 в...

При вводе русских букв пишет какие-то непонятные иероглифы, что делать?
Здравствуйте, начал работать со строками и при выводе мне пишет непонятные иероглифы, пример в...

2
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
31467 / 20514 / 7988
Регистрация: 22.10.2011
Сообщений: 35,647
Записей в блоге: 7
26.10.2016, 15:14 2
Лучший ответ Сообщение было отмечено vinolga как решение

Решение

Pascal
11
ExcelApp.Range['D1'] := widestring(UTF8Decode('ИНФОРМАЦИЯ'));
1
12 / 4 / 1
Регистрация: 29.07.2015
Сообщений: 108
27.10.2016, 10:25  [ТС] 3
Спасибо, Volvo!!!
Все сработало!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.10.2016, 10:25

Кракозябры вместо русских букв при выводе из БД
а как сделать чтобы русские слова выводились из бд? а то крякозябры получается

? вместо русских букв при PHP запросе к Firebird
Здравствуйте форумчане! не могу решить проблему с кодировкой при запросе выводит вопросы вместо...

При отправке письма вместо русских букв отсылается тупость
Да да знаю я не первый кто задает этот вопрос, но я все перечитал и ничего не выходит можете...

При записи в csv вместо русских букв записывается пустота
Уважаемые! Подскажите! Пытаюсь записать в csv файл русские буквы, но записывается пустота, англ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru