Загрузка текста RTF из базы данных в TRichEdit

В настоящее время я нахожусь в процессе переноса нашего программного решения с Delphi 7 на 2010. В основном изменения были простыми, и осталось лишь небольшое количество препятствий.

В форме мы используем TRichEdit, который отображает текст RTF, извлеченный из поля BLOB-объектов в базе данных MSSQL. Вот как это работает в Delphi 7:

//Get RTF text from Blob field using TADOQuery
rtfStream := sql.CreateBlobStream(sql.FieldByName('rtftext'), BmRead) as TMemoryStream;

//Load into TRichEdit
RichEdit.PlainText := False;
RichEdit.Lines.LoadFromStream(rtfStream);

Это будет отображать RTF, как и ожидалось, в компоненте TRichEdit, но тот же код в Delphi 2010 отображает RTF в виде простого текста с вкладками между каждым символом. Я предполагаю, что это во многом связано с переходом с Ansi на Unicode, но мне не повезло, что я исправил проблему.

Любая помощь, заставляющая это работать, очень ценится. Спасибо

Ответы на вопрос(2)

Ваш ответ на вопрос