Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.10.16;
Скачать: 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 вся ветка

Текущий архив: 2003.10.16;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.024 c
14-51501
Омлет
2003-09-28 00:33
2003.10.16
Именинники 28 сентября!


3-51103
lopatkin
2003-09-26 17:21
2003.10.16
В Delphi 7 - Either BOF or EOF is True, or the current... почему?


3-51085
DenK_vrtz
2003-09-25 15:57
2003.10.16
FOREIGN KEY


14-51404
Ketmar
2003-09-25 17:37
2003.10.16
читаю другие разделы и охреневаю


1-51304
kosm
2003-10-06 11:13
2003.10.16
Класс как параметр и перегрузка конструктора