Как корректно скопировать русский шрифт из 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;

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