Re: Replacing Item Contents

Return to index

Author

Message

Sergey Tkachenko

Posted: 03/23/2004 21:50:45

Yes, this is a correct solution.

May be it would be better to use SetItemTextA and GetItemTextA, or skip

Unicode text

(Unicode can appear when pasting RTF documents if

RTFReadProperties.UnicodeMode<>no-unicode)

>

> procedure ......

> var i: integer;

>     s: string;

> begin

>   for i:=0 to RVE.ItemCount-1 do

>   begin

>     if RVE.GetItemStyle(i)<0 then continue; // non-text elements

>     s:=RVE.GetItemText(i);

>     S:=ProcessText(S);

>     RVE.SetItemText(i, s);

>   end;

>   RVE.Format;

> end;