Desde un campo hacia un TRichEdit...

[TiammatMX]

....y se me olvidó comentar (y seguro se preguntarán) que no puedo "levantarlo" mediante un TDbRichEdit, por que el campo está encriptado... y es necesario desencriptarlo antes de mostrarlo...

[Casimiro Noteví]

¿Has comprobado que una vez descifrado sea correcto?, en lugar de intentar presentarlo, guárdalo en disco y échale un vistazo.

[TiammatMX]

Ciertamente, fue lo primero que revisé que hiciera correctamente..., lo copié al editor de textos de Windows y se conservan perfectamente los códigos RTF.

El problema es que cuando deseo leerlo directamente del campo (previa desencriptación) no lo muestra como RTF, sino como un texto sin formato, y los códigos "puros", sin ejecutarse...

[Casimiro Noteví]

El componente tdbrichedit tiene una propiedad que se llama (creo recordar) PlainText, debes ponerlo a false.

[Neftali [Germán.Estévez]]

Empezado por tiammat

Ciertamente, fue lo primero que revisé que hiciera correctamente..., lo copié al editor de textos de Windows y se conservan perfectamente los códigos RTF.

El problema es que cuando deseo leerlo directamente del campo (previa desencriptación) no lo muestra como RTF, sino como un texto sin formato, y los códigos "puros", sin ejecutarse...

Si lo tienes en una cadena (una vez que ya lo has desencriptado) una forma fácil es usando Streams.

Código Delphi [-]
var
  ss: TStringStream;
  StrRichEdit:string
begin

  // desencriptarlo y guardarlo en StrRichEdit
  ...

  // Pasarlo al richedit
  ss := TStringStream.Create(StrRichEdit);
  Richedit1.PlainText := False;
  // Cargarlo
  RichEdit1.Lines.LoadFromStream(ss);
  // liberar el stream (utiliza try..finally)
  ss.Free;

[TiammatMX]

¡¡¡Listooooo!!! Resuelto con la mayor sencillez del mundo. Tan bloqueado estaba que no recordé cómo se levantan los datos...

Código Delphi [-]
// 20120710 FEOL Se "levantan" los datos de las observaciones de 8, 16 y 24 horas.
   sFiltro := '(E_EVAD_MASTER_DATE = '+IntToStr(aRegistroAdverso[ADVERSO_MASTER_FECHA_MAESTRA])+') '+
              'AND (E_EVAD_MASTER_TIME = '+IntToStr(aRegistroAdverso[ADVERSO_MASTER_HORA_MAESTRA])+') '+
              'AND (E2_CTRL_PAC = '+QuotedStr(Trim(aRegistroAdverso[ADVERSO_MASTER_CTRL_PAC]))+')';
   with TADOTable.Create(Self) do
   begin
      Connection := DataSys.ADOConnHipo;
      TableName := 'E_EVAD_OBSERVACIONES';
      TableDirect := False;
      Filter := sFiltro;
      Filtered := True;
      Open;
      if RecordCount = 1 then
      begin
         redtObservaciones8H.Text := Desencriptar(FieldByName('EEVAD_OBSERVACIONES_8H').AsString);
         redtObservaciones16H.Text := Desencriptar(FieldByName('EEVAD_OBSERVACIONES_16H').AsString);
         redtObservaciones24H.Text := Desencriptar(FieldByName('EEVAD_OBSERVACIONES_24H').AsString);
      end;
      Free;
   end;

¡Gracias, Casimiro! Necesitaba alguien que me bombardeara con ideas para generar más ideas...