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

Clipboard.AsText - белеберда получается   Найти похожие ветки 

← →
Буфер обмена   (2003-10-03 14:32) [0]

Помогите плз.
Копирую в буфер текст;
Вставляю в notepad: русский шрифт - иероглифы
Как исправить.

---

← →
Буфер обмена   (2003-10-03 14:44) [1]

Странно...
Я думал, тока я не знаю ответа на этот вопрос

---

← →
Song ©   (2003-10-03 14:55) [2]

Перед копированием переведи раскладку на русскую.

---

← →
Буфер обмена   (2003-10-03 15:11) [3]

>Song © (03.10.03 14:55) [2]
Проходит.
но это не выход из положения
должен же быть другой путь
зачем играть переключателем

---

← →
Song ©   (2003-10-03 15:15) [4]

По-другому копай в сторону уникода.

---

← →
Буфер обмена   (2003-10-03 17:06) [5]

Если кому интересно, я пошел по пути [2] .
А делал я копирование данных из грида с разделениями #9 и #13#10
для прямой вставки в MSExcel.

---

← →
Song ©   (2003-10-03 17:15) [6]

Procedure CopyListViewToClipBoard(ListView: TListView);
{ Процедура копирует TListView, переданный в качестве параметра в буфер обмена }
Var S: String;
t,r: Integer;
Begin
S:="";
With ListView Do For t:=0 to Items.Count-1 Do
Begin
S:=S+Items[t].Caption+#9;
For r:=0 to Items[t].SubItems.Count-1 Do
IF r=Items[t].SubItems.Count-1 then S:=S+Items[t].SubItems[r] else S:=S+Items[t].SubItems[r]+#9;
S:=S+#13#10;
End; {For}
{ Включаем русский язык на время копирования }
ActivateKeyboardLayout(LoadKeyboardLayout("00000419",0),0);
ClipBoard.AsText:=S;
End;

Procedure CopyStringGridToClipBoard(StringGrid: TStringGrid);
{ Процедура копирует TStringGrid, переданный в качестве параметра в буфер обмена }
Var S: String;
t,r: Integer;
Begin
S:="";
With StringGrid Do For t:=0 to RowCount-1 Do
Begin
For r:=0 to ColCount-1 Do IF r = ColCount-1 then S:=S+Cells[r,t] else S:=S+Cells[r,t]+#9;
S:=S+#13#10;
End; {For}
{ Включаем русский язык на время копирования }
ActivateKeyboardLayout(LoadKeyboardLayout("00000419",0),0);
ClipBoard.AsText:=S;
End;

---

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

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



Память: 0.46 MB
Время: 0.015 c