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

Как корректно скопировать русский шрифт из Stringgrid в Буфер?   Найти похожие ветки 

← →
jiura1   (2003-07-09 13:23) [0]

У меня в программе есть функция:копирование таблицы в буфер обмена,для последующей вставки в другое приложение (например в Excel).Но если таблица содержит русские имена,то при всавке данных в Excel вместо всех русских названий вылазит абракадабра.Как этого избежать.

---

← →
clickmaker ©   (2003-07-09 14:16) [1]

procedure SetClipboardText(const S: string);
var
wsz: PWideChar;
dwSize: Cardinal;
hData: Cardinal;
begin
if (Win32Platform = VER_PLATFORM_WIN32_NT) then begin

dwSize := (Length(S)+1) * SizeOf(WideChar);
hData := GlobalAlloc(GMEM_MOVEABLE or GMEM_DDESHARE, dwSize);
wsz := PWideChar(GlobalLock(hData));
StringToWideChar(S, wsz, Length(S)+1);
GlobalUnlock(hData);
Clipboard.SetAsHandle(CF_UNICODETEXT, hData);
end else
Clipboard.AsText := S;
end;

---

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

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



Память: 0.45 MB
Время: 0.016 c