replace for only arial font text

[sr1111]

I want to text replace only arial font
how can I make


my code (all text arial, bad)
with Srv.RichViewEdit do
for i :=0 to Srv.RichViewEdit.style.TextStyles.Count-1 do
Srv.RichViewEdit.Style.TextStyles.FontName := 'Arial';
Srv.RichViewEdit.Format;
begin
APPLICATION.ProcessMessages;
stringReplace('orange', 'aplle');

[Sergey Tkachenko]

Sorry, I do not understand the question.
Do you want to replace 'orange' to 'apple' only if 'orange' is written with 'Arial' font?

[sr1111]

yes, I want to replace 'orange' to 'apple' only if 'orange' is written with 'Arial' font

[Sergey Tkachenko]

If it should be an editing operation (undone):

Code: Select all

with RichViewEdit1 do begin
  SetSelectionBounds(0, GetOffsBeforeItem(0), 0, GetOffsBeforeItem(0));
  while SearchText('orange', [rvseoDown]) do
    if CompareText(Style.TextStyles[CurTextStyleNo].FontName, 'Arial')=0 then
      InsertText('apple');
end;

[sr1111]

thanks very good.
please can you tell me, how can I make this(replace) normal in the delphi richedit