|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.11.2007, 16:28 | #1 |
Пользователь
Регистрация: 24.11.2007
Сообщений: 12
|
Проблема поиск и замена текста(Delphi)
Подскажите, что нужно исправить в этом коде, чтобы был правильный поиск и замена. Проблема в том, что ищет вроде нормально, но есть один глюк, вводишь например "Найти: 2 Заменить на: 82" и цикл начинает идти по кругу до бесконечности.
Код:
Код:
Код:
|
26.11.2007, 16:34 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
А чегоб тебе не сделать так:
от и:=0 до Мемо.Линес.Соунт-1 делать Мемо.линес[и]:=StringReplase(Мемо.линес[и],'2','82',[rfReplaceAll]);
I'm learning to live...
|
26.11.2007, 17:25 | #3 |
Пользователь
Регистрация: 24.11.2007
Сообщений: 12
|
Это вот здесь надо менять?
Код:
|
27.11.2007, 00:02 | #4 |
Познаю мир
Форумчанин Подтвердите свой е-майл
Регистрация: 05.10.2007
Сообщений: 387
|
StringReplace - готовая функция
---
|
26.07.2010, 08:41 | #5 |
VisualC++/DirectX
Форумчанин
Регистрация: 16.07.2010
Сообщений: 831
|
procedure TForm4.ReplaceDialog1Find(Sender: TObject);
begin with Sender as TReplaceDialog do while True do begin if Memo1.SelText <> FindText then FindDialog1Find(Sender); if Memo1.SelLength = 0 then Break; Memo1.SelText:= ReplaceText; if not (frReplaceAll in Options) then Break; end; end; procedure TForm4.ReplaceDialog1Replace(Sender : TObject); label 10; begin Memo1.HideSelection:=true; 10: if pos(ReplaceDialog1.FindText,Memo1.T ext)<>0 then begin Memo1.SelStart:=pos(ReplaceDialog1. FindText,Memo1.Text)-1; Memo1.SelLength:=Length(ReplaceDial og1.FindText); Memo1.SelText:=ReplaceDialog1.Repla ceText; goto 10; end; Memo1.HideSelection:=false; end; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Текст. ред. Поиск и замена | Славный | Общие вопросы Delphi | 4 | 25.06.2008 20:09 |
Поиск и замена файлов | steo_ler | Помощь студентам | 5 | 08.10.2007 15:01 |
Поиск и замена текста в файле | VAbramyak | Общие вопросы Delphi | 3 | 04.04.2007 20:20 |
поиск и замена текста в RichEdit | Vasya | Помощь студентам | 11 | 16.03.2007 06:48 |
замена текста | zetrix | Microsoft Office Excel | 0 | 31.10.2006 07:54 |