разъесните мне кое что! - Общие вопросы Delphi

Veltis · 25.06.2007, 01:24

к примеру код

begin
S:='русский текс';
Clipboard.AsText:=S;

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

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

зарание спасибо!

Alex21 · 25.06.2007, 08:13

Цитата:

Сообщение от Veltis

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

В Uses подключаю QClipbrd, пробую, все копирует как надо - по-русски!!!
Возможно перед копированием переключись на RUS.

mutabor · 25.06.2007, 13:16

Так это всегда так, в Delphi по моему кодировка не та.
А может от версии зависит? Короче меня этот вопрос тоже интересует.
Только у меня вместо русских комментариев вопросительные знаки в редакторе кода получаются.

Квэнди · 25.06.2007, 13:22

procedure TMainForm.ConvertClipboard;
begin
TRE.SelectAll;
TRE.ClearSelection;
TRE.Lines.Add(Clipboard.AsText);
TRE.SelectAll;

TRE.Font.Name := 'Times New Roman'; //тут нужный шрифт
TRE.Font.Size := 12; // тут нужный размер
// или просто берите TRE.Font := MainMemo.Font;

TRE.SelAttributes.Charset := RUSSIAN_CHARSET;
TRE.CopyToClipboard;
end

TRE:TrichEdit

Veltis · 25.06.2007, 21:21

работает, спс большое. в принципе этот ричэдит не помешает.

25.06.2007, 01:24	#1
Veltis Регистрация: 25.06.2007 Сообщений: 3	разъесните мне кое что! к примеру код begin S:='русский текс'; Clipboard.AsText:=S; если, я теперь вставлю этот текс к примеру в блокнот, то получатся иероглифы. как зделать так, чтоб русский текс нормально копировался в буфер из переменной типа стринг!? зарание спасибо!

25.06.2007, 13:16	#3
mutabor Телепат с дипломом Старожил Регистрация: 10.06.2007 Сообщений: 4,929	Так это всегда так, в Delphi по моему кодировка не та. А может от версии зависит? Короче меня этот вопрос тоже интересует. Только у меня вместо русских комментариев вопросительные знаки в редакторе кода получаются. The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen) Проверь себя! Онлайн тестирование \| Мой блог Последний раз редактировалось mutabor; 25.06.2007 в 13:37.

25.06.2007, 13:22	#4
Квэнди Старожил Регистрация: 13.12.2006 Сообщений: 3,859	procedure TMainForm.ConvertClipboard; begin TRE.SelectAll; TRE.ClearSelection; TRE.Lines.Add(Clipboard.AsText); TRE.SelectAll; TRE.Font.Name := 'Times New Roman'; //тут нужный шрифт TRE.Font.Size := 12; // тут нужный размер // или просто берите TRE.Font := MainMemo.Font; TRE.SelAttributes.Charset := RUSSIAN_CHARSET; TRE.CopyToClipboard; end TRE:TrichEdit ICQ не для вопросов, а для предложений. Для вопросов используйте форум IRC канал клуба программистов\|Мои статьи

25.06.2007, 21:21	#5
Veltis Регистрация: 25.06.2007 Сообщений: 3	работает, спс большое. в принципе этот ричэдит не помешает.