Insert Text problem

Return to index

Author

Message

new user

Posted: 02/18/2005 1:23:52

Hi, I'm new to this TRichView component, and I have a problem.

procedure ReplaceVar(varName: string; newValue: string);

  begin

    ItemNo := 0;

    Offs := rv2.GetOffsBeforeItem(ItemNo);

    rv2.SetSelectionBounds(ItemNo, Offs, ItemNo, Offs);

    while rv2.SearchText(varName, [rvseoDown]) do

      begin

        rv2.InsertText(newValue, True);

      end;

  end;

but, if the newValue is large (let's say 500 chars) the program freezes.

why ?

/*

  if you're wondering why I need so many chars, it's because I need to replace

"%s[varName]" strings with varValue, and one (only one, but enough to be

a problem) of the fields contains many caracters.

  if there is another method to do this or if there is a remedy for my procedure,

please help me.

*/

thank you very much.

Nick.