FreePascal.ru

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

procedure TForm1.Button24Click(Sender: TObject);

var str,s:WideString;
exl:OleVariant;
i,j:integer ...

Попробовал сохранить Grid в .csv , выдал кодировку ANSI as UTF-8....теперь буду пробовать менять кодировку в гриде.. посмотрю что получится...Обзательно отпишусь..

Добавлено спустя 5 минут 53 секунды:
waydm , конечно интересно.. если Вам не сложно был бы рад исходнику))

Конечно.. как только у меня получится, я поделюсь кодом... пока в интернете нашел только решение с помощью нотпада переделывать екселевский файл в чистый UTF-8, а потом открывать в екселе, в статье написано что должно работать, но иероглифы у меня прежние...

Спасибо огромное за помощь, поищу информацию про кодировки...если у меня получится, поделюсь каким образом.. Еще раз спасибо за помощь!

Простите, я видимо просто задумался когда писал....данные в StringGride берутся из Dbf, отображаются в гриде по русски корректно, а вот после экспорта в ексель происходит вот так вот... эксперментировал, если убрать Utf8ToAnsi, получаются Дата в„– колект Нач.смены Смена Р ...

Владимир, сделал все как ты написал, ексель открылася, данные туда перенеслись, но русские буквы отразились иероглифами -  ₹ ⻷û à 湚 扐 嫵n 僵b 훭湚 훭扐 훭敆 퇭嫢n 퇭僢b 嫢n 僢b 죦㇧ 죦㋧ 죦쫧⯫ㄳ5 湚 扐 Ï
㜲〮⸴〲㌱ ? äà å ⰵ5 ⰵ5 ⰵ5 ⰵ5 ⰵ5 ⰵ5 ⰵ5 ⰵ5 ⰵ5 ⰵ5 ⰵ5 ⰵ5 ⰵ5 ⰵ5 ⰵ5 ⰵ5

я видимо совсем тупой, но даже сейчас, когда я использовал Ваш код у меня выдает ошибку "проект project1 вызвал класс исключения 'EVariantInvalidOpError' с сообщением Invalid variant operation
код баттона, отвечающего за экспорт
procedure TForm1.Button25Click(Sender: TObject);

var str,s:WideString ...

Ваш код я попробовал, но я не могу понять как вместо 'текст' вставить данные из своего стринг грида...в данный момент у меня с помощью Вашего кода по нажатию кнопки открывается книга екселя с заголовком текст....а вот как мне сделать так чтобы отобразились там данные из моего стринг грида до меня не ...

Владимир, я использую код, который посоветовали Вы - StringGrid1.SaveToFile('C:\Lazarus\grid1.csv'). потом открываю этот документ с помощью excel и вместо русских букв вижу Дата в„– колект Нач.смены Смена Р СѓРґР°Zn Р СѓРґР°Pb ХвТехZn ХвТехPb КонЦинZn РљРѕРЅР ...

Спасибо *Rik* , первоклассный исходник, наглядно показано,
Попробовал от Владимира код импортировать, превосходно выходит. Спасибо.

Не сочтите за наглость, но можете посоветовать, как правильно указать кодировку, при экспорте данных из стринг грид (версия лазаруса 1.0. 8 ).
На выходе в ксв ...

Владимир, спасибо что помогаете,
попробовал убрать код и быструю компиляцию, та же ошибка.

идея отличная, на тоже не нашел подходящих материалов, сам довольно ужасно в лазарусе разбираюсь

Владимир, попробовал код задействовать,
пишет "проект project1 вызвал класс исключения 'EOleException' с сообщением: ### (gdb unparsed remainders 0x0 out of bounds"
как думаете.

Добавлено спустя 2 минуты 15 секунд:
Сообщение alex208210 , пожалуйста, посоветуйте подходящее под ексель или ворд ...

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

Спасибо.
да, действительно виндовс, 7, попробую ваш код и скажу результат.