|
Автор: Сергей Лагонский
Запись 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;
|
|
Чтение текста RichEdit из базы
данных