Forbistrede Richedit!!

http://www.undu.com/Articles/981027d.html

Det er godt nok en tør omgang tekst. Desværre kom jeg ikke langt med den.
Jeg har på fornemmelsen at jeg skal bruge nogle af de RTF formater han bruger.
Problemet er at jeg ikke ved hvordan jeg gør det, og det fremgår heller ikke tydeligt af hans beretning.

Du kan prøve at se på det her:

http://www.myfileformats.com/download_info.php?id=4210

Argh!! Den er fandeme lang. Jeg tror at jeg dropper det med RTF.
Er der en anden måde at arbejde med en Richedit uden at det bliver langsomt?

Ved ik rigtig om det er hurtiger, men du kan da prøve:

http://hejhej105.frac.dk/rtf.zip

Det ser lovende ud... men jeg forstår ikke så meget af det :(
Kan du prøve at kommentere det eller forklare mig hvad det er du gør?

Ved ik lige hvad det første gør( {\rtf1\ansi\ansicpg1252\deff0\deflang1030{\fonttbl{\f0\fnil MS Sans Serif;}} ), men det er ihvertfald ret vigtigt :-)

ColorString tilføjer farvene til toppen af filen, hvis man f.eks. bruger det her array:

var
tags:array[0..2] of string;
color: array[0..2] of TColor;
begin
tags[0] := 'Ri';
color[0] := clRed;
tags[1] := 'ch';
color[1] := clGreen;
tags[2] := 'Ed';
color[2] := clBlue;

Kommer toppen til at se sådan ud:

            |      Farve 1      |      Farve 2      |      Farve 3    |
{\colortbl ;\red255\green0\blue0;\red0\green255\blue0;\red0\green0\blue255;}


TextString tilføjer teksten f.eks. hvis teksten er "RichEdit" og man bruger arrayet fra før så vil teksten kommer til at se sådan ud:

\viewkind4\uc1\pard\f0\fs16 \cf1 Ri\cf0 \cf2 ch\cf0 \cf3 Ed\cf0 it

Det første ved jeg ik lige hvad betyder :-), men \cf1 Ri\cf0 betyder den vælger "farve 1" fra toppen af filen og \cf2 ch\cf0 betyder den vælger "farve 2" fra

toppen, osv...


Tilsidst erstatter jeg alle normale mellemrun med rtf mellemrum(\par ):

TextString := StringReplace(TextString, Chr(13)+Chr(10), '\par ',[rfReplaceAll]);

Og afslutter rtf filen med "\par }"

Tja.. jeg er ved at rode mig ud i noget værre rod kan jeg mærke, men jeg plejer at komme godt ud af det til sidst så jeg springer bare ud i det.

Tak for hjælpen (igen-igen).

PS. Læg et svar :P

Svar :-)