Форум: "Основная";
Текущий архив: 2003.10.16;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.011 c