Ver Mensaje Individual
  #2  
Antiguo 28-02-2012
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.737
Reputación: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Esto es algo que utilizo que puedes modificar a tu gusto...
Recibe un campo blob, donde hay notas en formato RTF.
Las mete dentro de un TRichEdit.
Devuelve la propiedad Text del TRichEdit, que no tiene formato.
Nota: TRichEdit es parte de Delphi.
Código Delphi [-]
function TFMain.DameTexto(Campo: TBlobField): string;
var
  MS : TMemoryStream;
  RichEdit : TRichEdit;
begin
  RichEdit := TRichEdit.Create(Self);
  MS := TMemoryStream.Create;
  try
     RichEdit.Parent := Self;
     RichEdit.Visible := False;
     Campo.SaveToStream(MS);
     MS.Position := 0;
     RichEdit.Lines.LoadFromStream(MS);
     Result := RichEdit.Lines.Text;
  finally
     MS.Free;
     RichEdit.Free;
  end;
end;
Responder Con Cita