Поиск в тексте

[Rigard]

как зделать поиск в тексте (memo1 ) с помощью FindDialog и кнопочки ? Заранее огромное спасибо!
(найденый текст должен выделяться другим цветом[как в блокноте])

[Greblin]

В Memo встроенной поддержки форматированного текста, используй RichEdit с вкладки Win32, у него есть метод FindText

[dr.Chas]

//Вызов поиска
procedure TForm1.N10Click(Sender: TObject);
begin
  Spos:=memo1.SelStart;//Запоминание позиции курсора
  with finddialog1 do
  begin
    // Начальное значение поиска текста, выделенный в Мемо
    findtext:=memo1.SelText;
    //позиция окна поиска по центру программы
    position:=point(((Screen.ActiveForm.Left+(screen.ActiveForm.Width div 2))-(374 div 2)),((Screen.ActiveForm.Top + (Screen.ActiveForm.Height div 2))-(134 div 2)));
    //удаление из диалога кнопок “Вверх”, “Вниз”, “Только слово цылеком”
    options:=options+ [frhideupdown,frhidewholeword] ;
    execute;//запуск диалога
  end;
end;

//событие диалога FindDialog "onFind"
procedure TForm1.FindDialog1Find(Sender: TObject);
begin
  with finddialog1 do begin
    if frmatchcase in options then
    //поискс с учётом регистра
      Memo1.SelStart:=pos(findtext,copy(memo1.Lines.Text,spos+1,Length(memo1.Lines.text)))+spos-1
    else
    //поиск без учета регистра
      Memo1.SelStart:=pos(ansilowercase(findtext),ansilowercase(copy(memo1.Lines.Text,spos+1,Length(memo1.Lines.text))))+spos-1;
     //выделение найденного текста
    if memo1.SelStart>=spos then begin memo1.SelLength:=Length(findtext);
    //изменение начальной позиции поиска
    spos:=memo1.SelStart + memo1.SelLength+1;
    end else
    MessageBeep(MB_ICONASTERISK);
    MessageDlg('Вашь текст ненайден', mtInformation, [mbOk], 0);
    memo1.SetFocus;
  end;
end;

[Claster]

Применил данный код не к мемо а к Ричедиту, spos обьявил как integer так как писал что неизвестный идентификатор. Всё компилит но выводит всеровно что текст не найден!!! даже если такая строка есть!

[Alter]

скорей всего SPos нужно записать так:

...........................................
    { Public declarations }
  end;

var SPos :Integer; // <<<<<<=
  Form1: TForm1;

implementation

{$R *.dfm}
...........................................

[Claster]

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

[Alter]

поиск начинается с позиции каретки в Memo, по коду.

[Claster]

Вот взял с учебника код попроще!!! Ищет и выделяен необходимое нам слово

procedure TForm1.FindDialog1Find(Sender: TObject);
begin
if pos(FindDialog1.FindText,RichEdit1.Text)<>0 then
begin
RichEdit1.HideSelection:=false;
RichEdit1.SelStart:=pos(FindDialog1.FindText,RichEdit1.Text)-1;
RichEdit1.SelLength:=Length(FindDialog1.FindText);
end
else MessageDlg('Строка '+FindDialog1.FindText+' не найдена!', mtConfirmation, [mbYes], 0);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
FindDialog1.Execute;
end;

[Роман Радер]

так учитывается регистр принудительно.
лучше так, как говорили раньше в постах