Re: Replacing Item Contents

Return to index

Author

Message

Anonymous

Posted: 03/23/2004 12:23:25

"Manoj" <mk_talukdar@yahoo.com> wrote:

>

>I want to process the RVText

>at present i am doing it like

>For I:=0 to RVE.ItemCount-1

>  S:=GetItemText;

>  RVE.GetSelectionBounds(..,..,..,..,..);// for the current item

>  //Get the text and process text and get the result text

>  S:=ProcessText(S);

>  RVE.SetSelectionBounds(..,..,..,..);

>  RVE.DeleteSelection;

>  RVE.InsertText(NewText);

>End;

>But this process is very very slow.If the RV contents contains more than

>15-20 lines then its taking time and replacement of text is visible to the

>end user.

>Is there any other way to replace item text.

>I tried with RVE.Perform API, but it does not work.

>Plese advice me on this, its very very urgent.

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;