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

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

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
;

Другое по теме:

• BLOBFIELD как BITMAP
• Interbase BLOB-поля
• Загрузка изображений в Blob-поля