2 Txt-rtf

2 Txt-rtf

2 Txt-rtf : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Umwandeln von Text in RTF
Autor: ROBERT CRAM

Warum nicht verwenden die TRichEdit-Steuerelement, um die Arbeit für Sie tun? Ich habe ein
Erweiterte RichEdit-Steuerelement mit einer RTFText-Eigenschaft, die Sie lesen können und
Schreiben Sie an. Um Konvertierungen zu tun, legen Sie einfach die Text-Eigenschaft des Steuerelements,
und lesen Sie die RTFtext und umgekehrt.
TAXRichEdit = class(TRichEdit)
Private
{Private Deklarationen}
FStream: TMemoryStream;
Prozedur SetRTFText(RichText: string);
Funktion GetRTFText: string;
öffentliche
{Public Deklarationen}
Konstruktor Create(AOwner: TComponent); außer Kraft setzen;
Destruktor Destroy; außer Kraft setzen;
veröffentlicht
{Veröffentlichten Erklärungen}
Eigenschaft RTFText: Zeichenfolge lesen GetRTFText schreiben SetRTFText;
Ende;

Umsetzung
Konstruktor TAXRichEdit.Create(AOwner: TComponent);
beginnen
Geerbte Create(AOwner);
FStream: = TMemoryStream.Create;
Ende;
Destruktor TAXRichEdit.Destroy;
beginnen
FStream.Free;
geerbte Destroy;
Ende;

Prozedur TAXRichEdit.SetRTFText(RichText: string);
beginnen
FStream.Clear;
FStream.WriteBuffer (RichText [1], Length(RichText));
FStream.Position: = 0;
Lines.LoadFromStream(FStream);
Ende;

Funktion TAXRichEdit.GetRTFText: string;
beginnen
FStream.Clear;
Lines.SaveToStream(FStream);
Ergebnis: = PChar(FStream.Memory);
Ende;

HTH,
Robert Cram
[email protected]