[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;

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

[angvelem]

Попробуй SaveRTF, но при этом теряются гиперлинки.

[PS11011010]

Есть замечательная конструкция

Код:

format; while SearchText('some_to_search', [rvseoDown]) do InsertText('some_to_replace',False);

, заменяющая все вхождения искомой подстроки во всем документе.

[terehovk]

PS11011010, при этом форматирование того слова каторое я заменил изменятся
P.S. http://otvety.google.ru/otvety/threa...a53689e09e7c38 я читал