Txt 2 rtf

Txt 2 rtf

Txt 2 rtf : Multi-millones de consejos para hacer su vida mas facil.

Convertir texto en formato RTF
Colaborador: ROBERT CRAM

¿por Que no utilizar el TRichEdit de Control para hacer el trabajo para usted? He creado un
extended control RichEdit con un RTFText propiedad que puede leer y
escribir. Para hacer conversiones, acaba de establecer la propiedad text del control,
y leer el RTFtext y viceversa.
& nbsp & nbsp TAXRichEdit = class(clase TRichEdit)
& nbsp & nbsp privada
& nbsp & nbsp & nbsp & nbsp { Private declarations }
& nbsp & nbsp & nbsp & nbsp FStream: TMemoryStream
& nbsp & nbsp & nbsp & nbsp procedimiento SetRTFText(RichText: string)
& nbsp & nbsp & nbsp & nbsp funcion GetRTFText: cadena
& nbsp & nbsp publica
& nbsp & nbsp & nbsp & nbsp { Public declarations }
& nbsp & nbsp & nbsp & nbsp constructor Create(AOwner: TComponent) reemplazar
& nbsp & nbsp & nbsp & nbsp destructor Destruir reemplazar
& nbsp & nbsp publicado
& nbsp & nbsp & nbsp & nbsp { Publicado declaraciones }
& nbsp & nbsp & nbsp & nbsp propiedad RTFText: cadena de leer GetRTFText escribir SetRTFText
& nbsp & nbsp final

aplicacion
constructor TAXRichEdit.Create(AOwner: TComponent)
begin
& nbsp & nbsp Inherited Create(AOwner)
& nbsp & nbsp FStream := TMemoryStream.Crear
fin
destructor TAXRichEdit.Destruir
begin
& nbsp & nbsp FStream.Libre
& nbsp & nbsp heredado Destruir
fin

procedimiento TAXRichEdit.SetRTFText(RichText: string)
begin
& nbsp & nbsp FStream.Claro
& nbsp & nbsp FStream.WriteBuffer(RichText[1], la Longitud(texto enriquecido))
& nbsp & nbsp FStream.Posicion := 0
& nbsp & nbsp Lineas.LoadFromStream(FStream)
fin

funcion TAXRichEdit.GetRTFText: string
begin
& nbsp & nbsp FStream.Claro
& nbsp & nbsp Lineas.SaveToStream(FStream)
& nbsp & nbsp Resultado := PChar(FStream.De memoria)
fin

HTH,
Robert Cram
[email protected]