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

Delphi , Базы данных , Поля

Автор: Сергей Лагонский

Запись 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 из базы данных раздела Базы данных Поля может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: 2013-01-13 12:51:13 :: re:Чтение текста RichEdit из базы данных

пользователь: фф.

Спасибо) а вот так примерно на изменение в бд.
uses dbtables
var blobstr
.........
Table1.Active:=true;
Table1.Edit;
blobstr:=Table1.CreateBlobStream(Table1.FieldByName('blobfield'), bmReadWrite);
try
Richedit1.Lines.SaveToStream(blobstr);
finally
blobstr.Free;
end;
Table1.Post;

:: Главная :: Поля ::