[terehovk]

У меня есть документ который загружен в RichViewEdit. Мне нужно заменить там некоторые слова на другие (например, все "abc" на "абв" или "привет" на "пока"), но должно сохранится форматирование.

[PS11011010]

А пробовал AnsiReplaceStr?

Код:

x:TStringList;

x.Text:=AnsiReplaceStr(x.Text,pansichar('Текст, который хочешь заменить'),pansichar('Новый текст'));

[terehovk]

компонент RichViewEdit

[Pyro]

PHP код:

procedure SearchAndReplace( Rich: TRichEdit; InSearch,InReplace: String );
var
 X,ToEnd: Integer;
begin
 X := 0;
 ToEnd := Length( Rich.Text );
 X := Rich.FindText( inSearch,X,ToEnd,[] );

 While X <> -1 Do Begin
 Rich.SelStart := X;
 Rich.SelLength := Length( inSearch );
 Rich.SelText := inReplace;
 X := Rich.FindText( inSearch,X + Length( inReplace ),ToEnd,[] );
 End;
end; 


такое работает?

[terehovk]

еще раз говорю компонент не RichEdit а RichViewEdit

[terehovk]

я заменяю так

Код:

RichViewEdit1.BeginUpdate;
    try
        for i := 1 to 3 do
        begin
        //перемещение в начало документа
        ItemNo:=0;
        Offs:=RichViewEdit1.GetOffsBeforeItem(ItemNo);
        RichViewEdit1.SetSelectionBounds(ItemNo,Offs,ItemNo,Offs);

        while RichViewEdit1.SearchText('$'+a[i][1]+'#', [rvseoDown,rvseoWholeWord]) do
            RichViewEdit1.InsertText(a[i][2]);
        end;
    finally
        RichViewEdit1.EndUpdate;
    end;

но форматирование удаляется