| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
RichEdit замена текста [D7]
Ell © (2006-03-16 19:58:00)Нужно заменить заданную строку другой по всему тексту. Яндекс по сабжу даёт много ссылок с одним примером:
function Search_And_Replace(RichEdit: TRichEdit;
SearchText, ReplaceText: string): Boolean;
var
startpos, Position, endpos: integer;
begin
startpos := 0;
with RichEdit do
begin
endpos := Length(RichEdit.Text);
Lines.BeginUpdate;
while FindText(SearchText, startpos, endpos, [stMatchCase])<>-1 do
begin
endpos := Length(RichEdit.Text) - startpos;
Position := FindText(SearchText, startpos, endpos, [stMatchCase]);
Inc(startpos, Length(SearchText));
SetFocus;
SelStart := Position;
SelLength := Length(SearchText);
richedit.clearselection;
SelText := ReplaceText;
end;
Lines.EndUpdate;
end;
end;
Однако компилятор, устанавливая курсор перед <>-1, выдаёт ошибку: Incompatible types: 'TSearchType' and 'TRichSearchType'
Не подскажете, что неправильно?
Ell (2006-03-18 02:10:00) [1]Может, кто подкинет процедурку замены строки?
Ell (2006-03-18 01:49:00) [2]Жаль, что в RichEdit нет функции "Replace"...
Virgo_Style (2006-03-17 23:21:00) [3]кажется, что-то "затмевает" объявление stMatchCase, укажи явно: ComCtrls.stMatchCase
Ell (2006-03-17 22:45:00) [4]Сложный вопрос? - тогда разве не интересно разобраться?
Или слишком простой - тогда влом ответить?
| |
