Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Clipboard Кодировка

Iriss © (2009-06-04 15:06:00)
Добрый день,
Проблема:
копирую данные из StringGrid в Excel через Clipboard(мне так нужно).

пользуюсь этим кодом:
s := '';
for i := 1 to 5 do begin
for j := 1 to 5 do
s := s + StringGrid1.Cells[j,i] + #9;
s:= s+#13#10;
end;
Clipboard.AsText:= s;

Проблема только в том, что русские буквы в Excel кракозяблами показывает.
Как исправить эту проблему с кодировкой?
Спасибо

Iriss (2009-06-04 15:39:00) [1]
Спасибо всем, помогли решить

супирмегахакер (2009-06-04 15:32:00) [2]

> супирмегагигахакер (04.06.09 15:31) [5]

у мну проще ;)

супирмегагигахакер (2009-06-04 15:31:00) [3]
var
h:THandle;
begin
Clipboard.Open;
Clipboard.AsText := Memo1.Text;
h := Clipboard.GetAsHandle(CF_TEXT);
SetClipboardData(CF_LOCALE, h);
Clipboard.Close;
end;

супирмегахакер (2009-06-04 15:27:00) [4]
LoadKeyboardLayout('00000419', KLF_ACTIVATE);

sniknik (2009-06-04 15:26:00) [5]
> Как исправить эту проблему с кодировкой?
включи русский для программы перед выполнением кода.
либо меняй кодировку в клипборде. т.к. по умолчанию она туда из активной попадает (имхо, глюк vcl)

Palladin (2009-06-04 15:22:00) [6]
Есть и другие способы передачи данных в Эксель. Сдался тебе этот клипбоард...

ganda (2009-06-04 15:18:00) [7]
В CodeGear 2009 такой проблемы нету. Ниже версий выход по моему один

посмотри функции GetClipboardData и SetClipboardData в юните Windows думаю они тебе помогут

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »