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

Советы » Записи, индексы, поля, закладки » Чтение текста 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

;

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

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com