Советы по Delphi
Чтение текста RichEdit из базы данных
Запись TRichEdit в файл и сохранение этого файла в БД является наиболее простым способом сохранения текста компонента в таблице, но тот же способ может быть достигнут и без использования промежуточного файла, а именно с помощью TBlobStream. Пример, приведенный ниже, демонстрирует чтение текста TRichEdit из таблицы. Надеюсь с записью текста проблем у вас уже не возникнет.
| procedure ReadRichEditFromTable(Table : TTable; var RichEdit : TRichEdit); var BlobStream : TBlobStream;begin tryBlobStream := TBlobStream.Create(Table.FieldByName('BODY') as TBlobField, bmRead);if (not Table.FieldByName('BLOBFieldName').IsNull) thenbeginRichEdit.Lines.LoadFromStream (BlobStream);end;finallyBlobStream.Free;end;end; |
Спасибо за ценные замечания. [000231]
