Проблемы с кодировкой в компоненте MEMO - Общие вопросы Delphi

SANIOK_AV · 08.04.2009, 16:13

Доброго времени суток!
Ситуация такова:
я из текстового файла загружаю текст в Memo:

Код:

Memo1.Lines.LoadFromFile

в процессе исполнения программы если я выделяю этот текст отображаемый в Memo, копирую его и вставляю в текст письма MS Outlook (в принципе неважно в Ворд тоже вставлял...та же картина) то у меня в Аутлуке место текста получается абракадабра...
А вот если я копирую текст из самого текстового файла (из которого загоняю текст в Memo) то всё нормально...
Подскажите пожалуйста, в чём причина? Может какоето свойство Memo изменить?
Заранее благодарен!!!

SERG1980 · 08.04.2009, 16:29

А что за файл. Попробуйте в мемо OEMConverts в true выставить

SANIOK_AV · 08.04.2009, 16:44

Простой текстовый файл...(типа txt)...
OEMConverts в true выставил... не помогает...(((

SERG1980 · 08.04.2009, 16:56

Попробуйте тогда в мемо название шрифта сменить (arial например)

Квэнди · 08.04.2009, 17:03

Код:

TRE:TrichEdit
.....
    TRE.Lines.Add(Clipboard.AsText);
    TRE.SelectAll;
    TRE.Font.Name := 'Times New Roman';
    TRE.Font.Size := 12;
    TRE.SelAttributes.Charset := RUSSIAN_CHARSET;
    TRE.CopyToClipboard;

SANIOK_AV · 08.04.2009, 17:06

Поменял на arial и на arial cyr
тож самое...((

SANIOK_AV · 08.04.2009, 17:22

Цитата:

Сообщение от Квэнди

Код:

TRE:TrichEdit
.....
    TRE.Lines.Add(Clipboard.AsText);
    TRE.SelectAll;
    TRE.Font.Name := 'Times New Roman';
    TRE.Font.Size := 12;
    TRE.SelAttributes.Charset := RUSSIAN_CHARSET;
    TRE.CopyToClipboard;

не могли бы немного прокоментировать этот код...
а то я не особо силён в этом деле...

uberchel · 08.04.2009, 17:33

Прикрепи свой шрифт к приложению и в кодировке поставь utf-8

Можно так, у меня всё работает.

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
With RichEdit1 do begin
SelAttributes.Name:= 'utf-8';
SelAttributes.Charset:= RUSSIAN_CHARSET;
end;

SANIOK_AV · 08.04.2009, 17:41

Цитата:

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

Прикрепи свой шрифт к приложению и в кодировке поставь utf-8

Можно так, у меня всё работает.

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
With RichEdit1 do begin
SelAttributes.Name:= 'utf-8';
SelAttributes.Charset:= RUSSIAN_CHARSET;
end;

а почему RichEdit1...у меня ведь Memo?

uberchel · 08.04.2009, 17:48

Свойства у них одни и теже!
Поменяй RichEdit на Memo и се.
Кстати лучше использовать RichEdit!

08.04.2009, 16:13	#1
SANIOK_AV Пользователь Регистрация: 14.01.2008 Сообщений: 28	Проблемы с кодировкой в компоненте MEMO Доброго времени суток! Ситуация такова: я из текстового файла загружаю текст в Memo: Код: `Memo1.Lines.LoadFromFile` в процессе исполнения программы если я выделяю этот текст отображаемый в Memo, копирую его и вставляю в текст письма MS Outlook (в принципе неважно в Ворд тоже вставлял...та же картина) то у меня в Аутлуке место текста получается абракадабра... А вот если я копирую текст из самого текстового файла (из которого загоняю текст в Memo) то всё нормально... Подскажите пожалуйста, в чём причина? Может какоето свойство Memo изменить? Заранее благодарен!!!

08.04.2009, 17:03	#5
Квэнди Старожил Регистрация: 13.12.2006 Сообщений: 3,859	Код: `TRE:TrichEdit ..... TRE.Lines.Add(Clipboard.AsText); TRE.SelectAll; TRE.Font.Name := 'Times New Roman'; TRE.Font.Size := 12; TRE.SelAttributes.Charset := RUSSIAN_CHARSET; TRE.CopyToClipboard;` ICQ не для вопросов, а для предложений. Для вопросов используйте форум IRC канал клуба программистов\|Мои статьи

08.04.2009, 17:33	#8
uberchel Участник клуба Регистрация: 19.01.2009 Сообщений: 1,453	Прикрепи свой шрифт к приложению и в кодировке поставь utf-8 Можно так, у меня всё работает. Код: `procedure TForm1.FormCreate(Sender: TObject); begin With RichEdit1 do begin SelAttributes.Name:= 'utf-8'; SelAttributes.Charset:= RUSSIAN_CHARSET; end;`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Проблемы с кодировкой?	[Smarik]	БД в Delphi	35	15.02.2009 15:32
Проблемы с кодировкой	LAGOX	PHP	7	14.02.2009 15:13
Проблемы с кодировкой	Levchik	HTML и CSS	2	16.12.2008 16:12
Проблема с кодировкой в MEMO	hacknet	Общие вопросы Delphi	29	14.11.2008 19:15
Проблемы с кодировкой писем	Черничный	Win Api	7	16.06.2008 12:19

08.04.2009, 16:29	#2
SERG1980 Участник клуба Регистрация: 28.03.2007 Сообщений: 1,814	А что за файл. Попробуйте в мемо OEMConverts в true выставить

08.04.2009, 16:44	#3
SANIOK_AV Пользователь Регистрация: 14.01.2008 Сообщений: 28	Простой текстовый файл...(типа txt)... OEMConverts в true выставил... не помогает...(((

08.04.2009, 16:56	#4
SERG1980 Участник клуба Регистрация: 28.03.2007 Сообщений: 1,814	Попробуйте тогда в мемо название шрифта сменить (arial например)

08.04.2009, 17:06	#6
SANIOK_AV Пользователь Регистрация: 14.01.2008 Сообщений: 28	Поменял на arial и на arial cyr тож самое...((

08.04.2009, 17:48	#10
uberchel Участник клуба Регистрация: 19.01.2009 Сообщений: 1,453	Свойства у них одни и теже! Поменяй RichEdit на Memo и се. Кстати лучше использовать RichEdit!