Чтение текста RichEdit из базы данных

Запись RichEdit в файл и сохранение этого файла в базе данных является наиболее простым способом сохранения текста компонента в таблице, но тот же способ может быть достигнут и без использования промежуточного файла, а именно с помощью TBlobStream. Пример, приведенный ниже, демонстрирует чтение текста RTF из таблицы.

procedure ReadRichEditFromTable(Table: TTable; var RichEdit: TRichEdit);
var
  BlobStream: TBlobStream;
begin
  try
    BlobStream := TBlobStream.Create(Table.FieldByName('BODY') as TBlobField,
                                     bmRead);
    if (not Table.FieldByName('BLOBFieldName').IsNull) then begin
      RichEdit.Lines.LoadFromStream(BlobStream);
    end;
  finally
    BlobStream.Free;
  end;
end;

[Лагонский Сергей]