Скачать: CL | DM;

Пересылка текста через Clipboard   Найти похожие ветки 

← →
AlexG ©   (2004-06-20 19:06) [0]

У меня не получается в читабельном виде передать текст из Memo в Excel.
Я составляю в Memo таблицу с помощью #9 и #13#10. Данные имеют текстовый формат и русскую кодировку. После того как я составлю все таблицу я копирую содержимое Memo в Clipboard (CopyToClipboard), а потом вставляю из Excel:

     ExcelApp := CreateOleObject("Excel.Application");
     ExcelApp.Workbooks.Add(TmpParam);
     DataRow.SelectAll;
     DataRow.CopyToClipboard;
     ExcelApp.ActiveSheet.Paste;

Но в Excel весь текст становится нечитаемым (какая-то непонятная кодировка). :(
Как мне избежать такой перекодировки и вставить текст в читаемом виде? Контролировать это нужно на стороне Delphi или Excel?

---

← →
YurikGL ©   (2004-06-20 19:28) [1]

А зачем через буфер работать? Можно же напрямую ячейкам текст присваивать.

---

← →
AlexG ©   (2004-06-20 19:34) [2]

YurikGL
Так, как ты говоришь, дольше. Быстрее через вариантный массив и через клипбоард. Попробовал второй и наткнулся на эту кочку...

---

← →
YurikGL ©   (2004-06-20 19:40) [3]

> AlexG ©   (20.06.04 19:34) [2]

Хочешь по быстрому - работай через XML. Paste я делал, как - не помню. Сейчас попробую найти.

---

← →
YurikGL ©   (2004-06-20 19:44) [4]

Указанный тобой код сработал без проблем.

Попробуй
Memo1.SelectAll;
Memo1.CopyToClipboard;

Потом руками вставить в блокнот например, или еще куда. Так можно определить, кто путает кодировку.

---

← →
AlexG ©   (2004-06-20 19:45) [5]

> YurikGL
Я XML еще не изучал. Книг нет, а до распечаток и-нетовских пока время не пускает. Поэтому не получится пока через XML :(...
Может мне нужно объект Clipboard создать? И через него управлять клипбоардом?

---

← →
AlexG ©   (2004-06-20 19:47) [6]

Это, скорее всего, клипбоард портит, потому что такое было не только в этом случае... Издругих программ копировал и вставлял в нечитаемом виде... Хотя... Надо проверить.

---

← →
YurikGL ©   (2004-06-20 19:49) [7]

> AlexG ©   (20.06.04 19:45) [5]

В целом, через буфер не советую т.к. пользователью будет печально, если у него что-то в буфере было, да и большой объем через буфер плохо прокачивать.

Попробуй объявить вариантный массив и присваивать его  excelapplication.range["a1","c3"]

---

← →
evvcom ©   (2004-06-20 19:49) [8]

> Быстрее через вариантный массив и через клипбоард

Вот именно через вариантный массив, но зачем клипбоард? И без буфера обмена все прекрасно работает. А уж разница в несколько миллисекунд, я думаю, никого не устроит.

---

← →
AlexG ©   (2004-06-20 19:52) [9]

ОК. Ладно, буду через вариантный массив. Через клипбоард в целях расширения кругозора было :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.023 c