/|\АРТЕМ.NET.RU /|\ - Портал для программистов и не только: Delphi Visual Basic BORLAND С++ PERL PHP HTML

Чтение текста 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;

Спасибо Сергею Лагонскому за ценные замечания. [000231]