No conozco la componente que mencionas pero en el caso del control estándar, la lectura o escritura del texto enriquecido debe pasar a través de un
stream, y no directamente con la propiedad Text o Lines.Text.
Un ejemplo para guardar los datos:
Código Delphi
[-]
var
Contenido: TStringStream;
begin
Contenido := TStringStream.Create('');
try
edUso.Lines.SaveToStream(Contenido);
qDatos.ParamByName('uso').AsString := Contenido.DataString
qDatos.ExecSQL;
finally
Contenido.Free;
end;
end;
Para leer los datos sería el proceso inverso:
Código Delphi
[-]
var
Contenido: TStringStream;
begin
Contenido := TStringStream.Create(qDatos.FieldByName('UsoTerapeutico').AsString);
try
edUso.Lines.LoadFromStream(Contenido);
finally
Contenido.Free;
end;
end;
// Saludos