RichEdit

@duh_si · Регистрация: 18.10.2012

Author24 — интернет-сервис помощи студентам

Есть такая проблема: В RichEdit заносится текст с таблицами и форматированием, все это сохраняется в БД Access..поле Мемо.. формат Rtf, при следующем открытии программы появляется обычный текст, без форматирования и начертания таблиц, подскажите как решить эту проблему?

@volvo · 12.11.2012, 20:22

Не надо сохранять RTF в текстовое поле. Сохраняй в OLE Object (через TBlobStream).

@duh_si · 12.11.2012, 20:48 **[ТС]**

Можно поподробнее, я начинающий...

@volvo · 12.11.2012, 21:39

Схематично:

Delphi

// пишем в базу содержимое RE
procedure TForm1.Button29Click(Sender: TObject);
var
   bs : TADOBlobStream; // uses DBTables
begin
   ADOTable1.Edit;
   bs := TADOBlobStream.Create(TBlobField(AdoTable1.FieldByName('obj')), bmReadWrite);
   try
      Richedit1.PlainText := False;
      Richedit1.Lines.SaveToStream(bs);
   finally
      bs.Free;
   end;
   ADOTable1.Post;
end;
 
// читаем из текущей записи в RE данные
procedure TForm1.Button30Click(Sender: TObject);
var
   bs : TADOBlobStream;
begin
   bs := TADOBlobStream.Create(TBlobField(AdoTable1.FieldByName('obj')), bmRead);
   try
      Richedit1.PlainText := False;
      Richedit1.Lines.LoadFromStream(bs);
   finally
      bs.Free;
   end;
end;

Форматирование должно сохраняться. Поле Obj в базе объявлено как "OLE Object".

@duh_si 569 / 169 / 22 Регистрация: 18.10.2012 Сообщений: 912
		1
	RichEdit 12.11.2012, 19:56. Показов 2009. Ответов 3 Метки нет (Все метки) Есть такая проблема: В RichEdit заносится текст с таблицами и форматированием, все это сохраняется в БД Access..поле Мемо.. формат Rtf, при следующем открытии программы появляется обычный текст, без форматирования и начертания таблиц, подскажите как решить эту проблему? 0

@volvo Супер-модератор 32990 / 21296 / 8180 Регистрация: 22.10.2011 Сообщений: 36,589 Записей в блоге: 8
	12.11.2012, 20:22	2
	Не надо сохранять RTF в текстовое поле. Сохраняй в OLE Object (через TBlobStream). 0

@duh_si 569 / 169 / 22 Регистрация: 18.10.2012 Сообщений: 912
	12.11.2012, 20:48 [ТС]	3
	Можно поподробнее, я начинающий... 0

	12.11.2012, 21:39

RichEdit

Решение