поиск в richedit

[betirsolt]

всем привет,помогите организовать поиск в richedit с использованием finddialog.у меня вроде есть код но он иногда не находит я даже не понимаю,мне бы с подробными комментами,хочу понять весь процесс

[Человек_Борща]

Ок, ну а где же сам код, который вам непонятен?

[betirsolt]

да вот он

procedure TForm1.FindDialog1Find(Sender: TObject);
begin
 with FindDialog1 do
 begin
  if frMatchCase in Options
  then richedit1.SelStart := Pos(FindText,Copy(richedit1.Lines.Text, SPos + 1,Length(richedit1.Lines.Text))) + Spos - 1
 else richedit1.SelStart := Pos(AnsiLowerCase(FindText),AnsiLowerCase(Copy(richedit1.Lines.Text, SPos + 1,Length(richedit1.Lines.Text)))) + Spos - 1;
    if richedit1.SelStart >= Spos
   then
    begin
     richedit1.SelLength := Length(FindText);
     SPos := richedit1.SelStart + richedit1.SelLength + 1;
    end
   else if MessageDlg(
    'Текст "'+FindText+'" не найден. Продолжать диалог?',
    mtConfirmation, mbYesNoCancel, 0) <> mrYes
    then CloseDialog;
 end;
 richedit1.SetFocus;
end;

procedure TForm1.ToolButton23Click(Sender: TObject);
begin
 SPos := richedit1.SelStart;
 with FindDialog1 do
 begin
  FindText := richedit1.SelText;
  Options := Options + [frHideUpDown, frHideWholeWord];
  Execute;
 end;
end;

но он можно сказать не находит

[beegl]

function SearchForText_AndSelect(RichEdit: TRichEdit; SearchText: 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); 
    end; 
    Lines.EndUpdate; 
  end; 
end; 


procedure TForm1.Button1Click(Sender: TObject); 
begin 
  SearchForText_AndSelect(RichEdit1, 'Some Text'); 
end;

[betirsolt]

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

function SearchForText_AndSelect(RichEdit: TRichEdit; SearchText: string): Boolean;

это я уже делал,не подходит мне это,мне бы желательно отредактировать мой вариант,да так чтоб понятно было

[betirsolt]

ребята я тут догоняю этот код и переделываю,а почему ельзя написать вот так

richedit1.SelStart := Pos(AnsiLowerCase(FindText),AnsiLowerCase(richedit1.Lines.Text))-1;

чем вот так

richedit1.SelStart := Pos(FindText,Copy(richedit1.Lines.Text, SPos + 1,Length(richedit1.Lines.Text))) + Spos - 1

мой вариант работает вроде,но он ищет только вниз а то что вверху он не видит,почему так?

[Sparkman]

Используйте действие SearchFind из ActionList вкладки Standard

Пример можете посмотреть в папке <где делфи лежит>\Demos\Doc\TextEdit
ps: в d6-d7 точно такие папки есть

[betirsolt]

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

Используйте действие SearchFind из ActionList вкладки Standard

Пример можете посмотреть в папке <где делфи лежит>\Demos\Doc\TextEdit
ps: в d6-d7 точно такие папки есть

в принципе там будет тоже самое примерно,и вообще мне не нужен код который я сам не понимаю,поэтому переделываю под себя,в этом и прошу помощи
вот еще убрал строчку

 SPos := richedit1.SelStart + richedit1.SelLength + 1;

теперь всегда ищет от начала текста,но если в тексте например подряд идут два одинаковых слова
'привет'
'привет'
то он находит только первый