Search and Replace problem

[rafakwolf]

Hello..

i am trying to search and replace texts...but no success..

using this code :

Code: Select all

procedure SearchAndReplace(rve: TCustomRichViewEdit; old, new: String);
begin
  with rve do
  begin
    SetSelectionBounds(0, GetOffsBeforeItem(0), 0, GetOffsBeforeItem(0));

    while SearchText(old, [rvseoDown,rvseoWholeWord]) do
      InsertText(new);
  end;
end;

in the "chat-form" following you can see the problem:



i'm calling the procedure, after text inserted of course...

something wrong ?

thanks alot.[/img]

[rafakwolf]

Hello..

i am trying to search and replace texts...but no success..

using this code :

Code: Select all

procedure SearchAndReplace(rve: TCustomRichViewEdit; old, new: String);
begin
  with rve do
  begin
    SetSelectionBounds(0, GetOffsBeforeItem(0), 0, GetOffsBeforeItem(0));

    while SearchText(old, [rvseoDown,rvseoWholeWord]) do
      InsertText(new);
  end;
end;

in the "chat-form" following you can see the problem:



i'm calling the procedure, after text inserted of course...

something wrong ?

thanks alot.

OBS.:

calling this way

Code: Select all

  add formatted text
...
...
...
SerachAndReplace(MyRvEdit,'<USER>','THEÒS INFORMÁTICA LTDA');

[Sergey Tkachenko]

I read in the private message that your document is read-only.
Yes, all editing methods are blocked in read-only mode, so InsertText does not work.

You can temporary assign ReadOnly=False before executing this code and then restore it back.
But the best solution would be using non-editing methods.