VPF::Как правильно отобразить текст из ini-файла?

DemonXT

Дата 15.2.2009, 18:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 15.2.2009

Репутация: нет
Всего: нет

У меня есть TRichEdit с форматированным текстом. Сожраняю уго содержимое в ini-файл:

Код


OtherText:=TMemoryStream.Create;
RichEdit1.Lines.SaveToStream(OtherText);
OtherText.Seek(0, soFromBeginning);
FileINI.WriteBinaryStream('sets1','sets2',OtherText);
OtherText.Free;

Здесь всё Ок. smile

Далее пытаюсь загрузить сохранённые данные обратно:

Код


OtherText:=TMemoryStream.Create;
FileINI.ReadBinaryStream('sets1','sets2',OtherText);
OtherText.Position:=0;
RichEdit1.Lines.LoadFromStream(OtherText);
OtherText.Free;

Но в результате полусаю набор сохранённых символов:"{\rtf1\ansi\ansicpg1251\deff0\deflang1049{\fonttbl{\f0\fnil\fcharset204 Tahoma;}}
\viewkind4\uc1\pard\f0\fs16\'c1\'fb\'e2\'f8\'e8\'e9 \'f1\'e5\'ea\'f0\'e5\'f2\'ed\'fb\'e9 \'e0\'e3\'e5\'ed\'f2, \'e0 \'ed\'fb\'ed\'e5 \'ee\'e4\'e8\'ed\'ee\'ea\'e8\'e9 \'ed\'e5\'f3\'e4\'e0\'f7\'ed\'e8\'ea, \'c1\'f0\'e0\'e9\'e0" smile

А хотелось бы получить назад свой форматированный текст! smile

Помогите...
Заранее спасибо.

MetalFan

Дата 15.2.2009, 18:41 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

PlainText := False...

--------------------

There are always someone smarter than you...

DemonXT

Дата 15.2.2009, 18:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 15.2.2009

Репутация: нет
Всего: нет

Как получить форматированный текст вроде-бы придумал:

Код


FileINI.ReadBinaryStream('sets1','sets2',OtherText);
OtherText.Seek(0,soFromBeginning);
rAbout.Lines.Clear;
rAbout.SetSelTextBuf(OtherText.Memory);

но вот почему-то получаю не весь текст, а часть!
Может что-то не правильно делаю?

Добавлено через 4 минуты и 52 секунды

Цитата

PlainText := False...

Не помогло.

MetalFan

Дата 15.2.2009, 18:58 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

странно, у меня такое без артефактов отрабатывает. по идее то же, что и у тебя.

Код


var
  lMS: TMemoryStream;
begin
  lMS := TMemoryStream.Create;
  RichEdit.Lines.SaveToStream(lMS);
  lMS.Seek(0, soFromBeginning);
  RichEdit.Clear;
  RichEdit.Lines.LoadFromStream(lMS);
  lMS.Free;

--------------------

There are always someone smarter than you...

DemonXT

Дата 15.2.2009, 19:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 15.2.2009

Репутация: нет
Всего: нет

Цитата

странно, у меня такое без артефактов отрабатывает. по идее то же, что и у тебя.

Может потому что у меня содержимое RichEdit сохраняется в ini-файл?

DemonXT

Дата 15.2.2009, 20:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 15.2.2009

Репутация: нет
Всего: нет

Всё заработала! smile

Код начал отрабатывать, как нужна после перевода значения параметра PlainText наоборот в True.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »