Запись TRichEdit в файл и сохранение этого файла в БД является наиболее простым способом сохранения текста компонента в таблице, но тот же способ может быть достигнут и без использования промежуточного файла, а именно с помощью TBlobStream. Пример, приведенный ниже, демонстрирует чтение текста TRichEdit из таблицы. Надеюсь с записью текста проблем у вас уже не возникнет.
procedureReadRichEditFromTable(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
;