Не сохраняется кодировка русского в буфере

[Шурин]

Здравствуйте!

При передаче русского текста в "Блокнот" через буфер оно попадает в некорректной кодировке.

Const
  TEST_STRING = 'Тест' ;
Begin
    Clipboard.AsText := TEST_STRING ;

Результат после вставки из буфера в блокнот:

Òåñò

Помогите пожалуйста понять в чем дело?

[Deight]

Я не знаю что за фигня, но если перед тем как копировать в буфер текст, поменять язык в языковой панели на русский то все ок.

[spamer]

Есть такая беда.
Правда я текст сохранял в ТХТ файл, и когда открывал в Блокноте, то кряказяблики какие то появлялись заместь текста.
Я от этого избавлялся вот с помощью этой строчки кода

RichEdit1.PlainText:=True;

вставлял ее перед открытием диалога сохранения.А ты попробуй вставить перед кодом копирования текста(ну или попробуй в другом каком то месте).

[mihali4]

Вопрос снимется, если и отдающее окно, и принимающее будут переключены на русскую раскладку... Как минимум, отдающее...

[Квэнди]

reb:Trichedit;
.....
  reb.Lines.Add(Clipboard.AsText);
  reb.SelectAll;
  reb.SelAttributes.Charset := RUSSIAN_CHARSET;
  reb.CopyToClipboard;

[Шурин]

Спасибо, последнее помогло