Ich kenne das Problem und hatte Erfolg mit diesem WorkAround zum Laden in das Control:
Delphi-Quellcode:
s := TStringStream.Create(FieldByName('RTFTextfeld').AsString);
try
RichEdit1.Lines.LoadFromStream(s);
finally
FreeAndNil(s);
end;
Möglicherweise reicht das schon. Wenn nicht - das Holen vom Control geht dann so:
Delphi-Quellcode:
function GetRTFText : WideString;
var RichStream: TStringStream;
S: String;
begin
RichStream := TStringStream.Create(S);
try
RichEdit1.Lines.SaveToStream(RichStream);
Result := RichStream.DataString;
finally
RichStream.Free;
end;
end;