Txt 2 rtf

Txt 2 rtf

Txt 2 rtf : Plusieurs milliers de conseils pour vous faciliter la vie.

Convertir le texte en format RTF
Intervenant: ROBERT CRAM

Pourquoi ne pas utiliser le TRichEdit de Controle pour faire le travail pour vous? J'ai cree un
etendu controle RichEdit avec un RTFText de la propriete que vous pouvez lire et
en ecriture. Pour convertir, il suffit de definir la propriete text du controle,
et lisez les RTFtext et vice-versa.
& nbsp & nbsp TAXRichEdit = classe(TRichEdit)
& nbsp & nbsp prive
& ! & ! & ! & nbsp { Private declarations }
& ! & ! & ! & nbsp FStream: TMemoryStream
& ! & ! & ! & nbsp procedure SetRTFText(texte enrichi: string)
& ! & ! & ! & nbsp fonction GetRTFText: string
& nbsp & nbsp public
& ! & ! & ! & nbsp { declarations Publiques }
& ! & ! & ! & nbsp constructor Create(AOwner: TComponent) remplacer
& ! & ! & ! & nbsp destructeur de Detruire remplacer
& nbsp & nbsp publie
& ! & ! & ! & nbsp { Publie des declarations }
& ! & ! & ! & nbsp propriete RTFText: chaîne de lecture GetRTFText ecrire SetRTFText
& nbsp & nbsp fin

application
constructeur TAXRichEdit.Create(AOwner: TComponent)
begin
& nbsp & nbsp Herite Create(AOwner)
& nbsp & nbsp FStream := TMemoryStream.Creer
fin
destructeur TAXRichEdit.Detruire
begin
& nbsp & nbsp FStream.Gratuit
& nbsp & nbsp herite de Detruire
fin

procedure TAXRichEdit.SetRTFText(texte enrichi: string)
begin
& nbsp & nbsp FStream.Clair
& nbsp & nbsp FStream.WriteBuffer(RichText[1], la Longueur(texte enrichi))
& nbsp & nbsp FStream.Position := 0
& nbsp & nbsp Lignes.LoadFromStream(FStream)
fin

fonction de TAXRichEdit.GetRTFText: string
begin
& nbsp & nbsp FStream.Clair
& nbsp & nbsp Lignes.SaveToStream(FStream)
& nbsp & nbsp Resultat := PChar(FStream.La memoire)
fin

HTH,
Robert Cram
[email protected]