Konverter tekst til RTFContributor: ROBERT CRAMWhy ikke bruke TRichEdit Control for å gjøre jobben for deg? Jeg opprettet anextended RichEdit kontroll med en RTFText eiendom som du kan lese andwrite til. For å gjøre konverteringer, bare sette tekst eiendommen av kontroll, og lese RTFtext og vice versa. TAXRichEdit = klasse (TRichEdit) private {felleserklæringer} fstream: TMemoryStream; Prosedyren SetRTFText (Rik: string); funksjons GetRTFText: string; offentlige {offentlige erklæringer} konstruktør Opprette (AOwner: TComponent); styre; destructor Destroy; styre; publisert {Publisert erklæringer} eiendom RTFText: string lese GetRTFText skrive SetRTFText; slutt; implementationconstructor TAXRichEdit.Create (AOwner: TComponent), begynner Arvet Opprette (AOwner); Fstream: = TMemoryStream.Create; ende; destructor TAXRichEdit.Destroy, begynner FStream.Free; arvet Destroy; ende; prosedyre TAXRichEdit.SetRTFText (Rik: string); begynne FStream.Clear; FStream.WriteBuffer (Rik [1], Lengde (Rik)); FStream.Position: = 0; Lines.LoadFromStream (fstream); end; funksjon TAXRichEdit.GetRTFText: string; begynne FStream.Clear; Lines.SaveToStream (fstream); Resultat: = PChar (FStream.Memory); end; HTH, Robert [email protected]