Поиск, выделение, вопрос!?

[IIpopoK]

Здрасте!
Как оформить код поиска, выделения.. и вопоса?
надо чтоб происходило так:
1.Ищим слово "Delphi" в тексте:

Форум программистов
Delphi программирование
Общие вопросы Delphi

2.Если найдено слово "Delphi", то это слово выделяется.
3.Если найдено слово и выделено, задается вопрос "Искать далее или заменить"!
как это сделать??
если что-то не понятно с вопросом попробую объяснить по другому.
-----
У меня есть функция поиска и замены, но я не могу с ней разобраться(((
если она чем-то поможет вот:

function SAR(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;

[Ntlegend]

для поиска используй Pos или PosEx, для выделения текста делай

RichEdit1.SelStart:=начальная_позицыя;
RichEdit1.SelLength:=длинна_выделения;

для замены

RichEdit1.SelText:='Новый текст';

[Kotofff]

Немного расширю ответ Ntlegend и твою функцию которую ты привел.
Сделал немного комментарии чтобы тебе можно было идти дальше самому :

function SAR(RichEdit: TRichEdit; SearchText, ReplaceText: string): Boolean; 
var 
  startpos, Position, endpos: integer; 
begin 
  startpos := 0; 
  with RichEdit do 
  begin 
    endpos := Length(RichEdit.Text);// длина всего текста в RichEdit 
    Lines.BeginUpdate; // начало "работы"
    while FindText(SearchText, startpos, endpos, [stMatchCase])<>-1 do 
    begin 
      endpos   := Length(RichEdit.Text) - startpos; 
      Position := FindText(SearchText, startpos, endpos, [stMatchCase]); // начало найденного слова из аргумента SearchText 
      Inc(startpos, Length(SearchText)); // переместили "курсор поиска" для следующего шага чтобы не искать уже найденое
      SetFocus; // показали найденное выделение
      SelStart  := Position; // ... с этой позиции 
      SelLength := Length(SearchText); // ... этой длинны
      //richedit.clearselection; // в оригинале функции тут удаляем найденное слово
      // ... и вот тут можно вставить то , что ты хочешь - вопрос перед заменой
      // что-то типа так : 
      if MessageBox(Handle, 'Слово найдено ! Произвести замену ?','Поиск и замена', MB_YESNO) = mrYes then
        SelText := ReplaceText; 
    end; 
    Lines.EndUpdate; // конец "работы"
  end; 
end;

[IIpopoK]

Сообщение от Kotofff

Немного расширю ответ Ntlegend и твою функцию которую ты привел.
Сделал немного комментарии чтобы тебе можно было идти дальше самому :

function SAR(RichEdit: TRichEdit; SearchText, ReplaceText: string): Boolean; 
var 
  startpos, Position, endpos: integer; 
begin 
  startpos := 0; 
  with RichEdit do 
  begin 
    endpos := Length(RichEdit.Text);// длина всего текста в RichEdit 
    Lines.BeginUpdate; // начало "работы"
    while FindText(SearchText, startpos, endpos, [stMatchCase])<>-1 do 
    begin 
      endpos   := Length(RichEdit.Text) - startpos; 
      Position := FindText(SearchText, startpos, endpos, [stMatchCase]); // начало найденного слова из аргумента SearchText 
      Inc(startpos, Length(SearchText)); // переместили "курсор поиска" для следующего шага чтобы не искать уже найденое
      SetFocus; // показали найденное выделение
      SelStart  := Position; // ... с этой позиции 
      SelLength := Length(SearchText); // ... этой длинны
      //richedit.clearselection; // в оригинале функции тут удаляем найденное слово
      // ... и вот тут можно вставить то , что ты хочешь - вопрос перед заменой
      // что-то типа так : 
      if MessageBox(Handle, 'Слово найдено ! Произвести замену ?','Поиск и замена', MB_YESNO) = mrYes then
        SelText := ReplaceText; 
    end; 
    Lines.EndUpdate; // конец "работы"
  end; 
end;

угу понятно! а как сделать чтобы при вопросе:

MessageBox(Handle, 'Слово найдено ! Произвести замену ?','Поиск и замена', mb_YesNo)

найденное слово подсвечивалось(выделялось)?
И как сделать так чтобы при нажатии на mrNo программа продолжала искать дальше? если ничего не найдено то вывести сообщение:

MessageBox(Handle, 'Не найдено ни одного совпадения!','Поиск и замена', mb_Ok)

[Stilet]

найденное слово подсвечивалось(выделялось)?

Для этого после
SelStart := Position; // ... с этой позиции
SelLength := Length(SearchText); // ... этой длинны
Нужно поменять цвет в SelAttributes
Вот прям в хелпе написано:

  with RichEdit1.SelAttributes do
  begin
    Color := clRed;
    Height := Height + 5;
  end;

[Kotofff]

Сообщение от IIpopoK

И как сделать так чтобы при нажатии на mrNo программа продолжала искать дальше? если ничего не найдено то вывести сообщение:

MessageBox(Handle, 'Не найдено ни одного совпадения!','Поиск и замена', mb_Ok)

При нажатии на "No" функция и так продолжит искать. ... а вот на счет того, что сказать что-нибудь если ваще ничего не нашла :

function SAR(RichEdit: TRichEdit; SearchText, ReplaceText: string): Boolean; 
var 
  startpos, Position, endpos: integer; 
begin 
  Result := false;// сначала ничего нет
  startpos := 0; 
  with RichEdit do 
  begin 
    endpos := Length(RichEdit.Text);// длина всего текста в RichEdit 
    Lines.BeginUpdate; // начало "работы"
    while FindText(SearchText, startpos, endpos, [stMatchCase])<>-1 do 
    begin 
      endpos   := Length(RichEdit.Text) - startpos; 
      Position := FindText(SearchText, startpos, endpos, [stMatchCase]); // начало найденного слова из аргумента SearchText 
      Inc(startpos, Length(SearchText)); // переместили "курсор поиска" для следующего шага чтобы не искать уже найденое
      SetFocus; // показали найденное выделение
      SelStart  := Position; // ... с этой позиции 
      SelLength := Length(SearchText); // ... этой длинны
      //richedit.clearselection; // в оригинале функции тут удаляем найденное слово
      // ... и вот тут можно вставить то , что ты хочешь - вопрос перед заменой
      // что-то типа так : 
      if MessageBox(Handle, 'Слово найдено ! Произвести замену ?','Поиск и замена', MB_YESNO) = mrYes then
        begin
        SelText := ReplaceText; 
        Result := true;// что-то нашли и заменили
        end;
    end; 
    Lines.EndUpdate; // конец "работы"
  end; 
end;

И когда функция отработает то вернет true ,если что-то нашла и заменила или false - если наоборот. Обрабатывай в проге ее результат и выводи сообщения....

[IIpopoK]

Сообщение от Stilet

Для этого после
SelStart := Position; // ... с этой позиции
SelLength := Length(SearchText); // ... этой длинны
Нужно поменять цвет в SelAttributes
Вот прям в хелпе написано:

  with RichEdit1.SelAttributes do
  begin
    Color := clRed;
    Height := Height + 5;
  end;

если сделать примерно так то цвет меняется после нажатия кнопки "Да" или "Нет", а нужно чтобы цвет менялся сразу после того как найдено слово.
-----------------------------------------------------------

Сообщение от Kotofff

При нажатии на "No" функция и так продолжит искать. ...

Просто фишка в том что функция то продолжает искать... но криво...
Сделал вот так:

//-------------------- Начало функции --------------------\\
 function Edit(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-1, [stMatchCase])<>-1 do
    begin
      endpos   := Length(RichEdit.Text) - startpos;
      Position := FindText(SearchText, startpos, endpos, [stMatchCase]); //начало найденного слова из SearchText
      Inc(startpos, Length(SearchText)); //переместить "курсор поиска" для следующего шага чтобы не искать уже найденое
      SetFocus; //показать найденное выделение
      SelStart  := Position; //с этой позиции
      SelLength := Length(SearchText); //этой длинны
      SelAttributes.Color:=clRed;
    if MessageBox(Handle, 'Слово найдено ! Произвести замену ?','Поиск и замена', MB_YESNO) = mrYes then
        begin
        SelText := ReplaceText;
        Lines.EndUpdate; // конец "работы"
        end
    end;
  end;
end;
//-------------------- Конец функции --------------------\\

и получается что если я буду постоянно нажимать на "Да" то функция заменяет поочередно каждое найденное слово!
А если я жму "Нет", то по сути функция должна пропустить найденное слово и искать дальше... но она не пропускает его с первого клика, а только после нажатий примерно так 2-4. вот....
Надо чтоб было так:
1. Найти слово.
2. Спросить "Заменить?" 2 варианта "да", "Нет".
3. Если "Да" - Заменить и искать дальше.
4. Если "Нет" - Пропустить слово и искать дальше.
вот так...

[IIpopoK]

Разобратся сам, спасибо!
вот рабочий код:

//-------------------- Начало функции --------------------\\
function Edit(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-1;
      Position := FindText(SearchText, Startpos, Endpos, [stMatchCase]); //начало найденного слова из SearchText
      Inc(Startpos,Length(SearchText)); //переместить "курсор поиска" для следующего шага чтобы не искать уже найденое
      SetFocus; //показать найденное выделение
      RichEdit.HideSelection:=false;
      SelStart  := Position; //с этой позиции
      SelLength := Length(SearchText); //этой длинны
    if MessageBox(Handle, 'Слово найдено ! Произвести замену ?','Поиск и замена', MB_YESNO) = mrYes then
        begin
        SelText := ReplaceText;
        Lines.EndUpdate; // конец "работы"
        end
        else
        begin
        Lines.EndUpdate; // конец "работы"
        end;
      Startpos:=Position+Length(SearchText);
    end;
  end;
end;
//-------------------- Конец функции --------------------\\