Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Передача данных из TrichEdit в базу

Автор: offline 14.4.2005, 00:15

Подскажите, в чем проблемма.
Я пишу текст в TrichEdit выделяя текст различными цветами.
Затем хочу поместить содержимое в базу Access в поле типа Memo. Работаю в Delphi 7 через ADO.

Я выполняю следующее

Код


Таблица.Edit;
Таблица.FieldByName(Мое поле Memo).AsVariant := TrichEdit.Lines.Text;
Таблица.Post;

В принцепе все работает, но когда я вывожу эти данные в TDBrichEdit, то выводится текст как в простой TDBMemo, т.е. без шрифтового оформления, т.е. один шрифт.
Подскажите, как сохранить оформленный текст в базу и потом его обратно показать. Где ошибка?

Автор: Alex 14.4.2005, 01:07

Код


function GetRtfText(RE: TRichEdit): String;
// Получение форматированного текста из RichEdit
var
  MemoryStream:TMemoryStream;
begin
  MemoryStream:=TMemoryStream.Create;
  try
    RE.Lines.SaveToStream(MemoryStream);
    MemoryStream.Seek(0,soFromBeginning); 
    SetLength(Result, MemoryStream.Size);
    MemoryStream.Read(Result[1], Length(Result));
  finally
    MemoryStream.Free;
  end;
end;

Код


Таблица.Edit;
Таблица.FieldByName(Мое поле Memo).AsVariant := GetRtfText(TrichEdit);
Таблица.Post;

Добавлено @ 01:11
http://vingrad.ru/DELPHI-DLP-002486

Автор: offline 14.4.2005, 01:14

Ухты, спасибо, работает просто суппер smile

Автор: Alex 14.4.2005, 01:16

Пожалуйста. smile