поиск слова в Memo

[Alex Cones]

Поменяйте лучше memo на richedit. Тогда можно будет подсвечивать слова.

см. пост 3.

[Rebel123]

Поменял на RichEdit, теперь когда в поиске он находит слова те что стоят после того который тебе нужен!

[russian-stalker]

Вот набросал

//Обработка на нажатие на кнопку найти
//RichEdit1-наш текст
//Edit1-искомая фраза
procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k:integer;
begin
for i := 0 to RichEdit1.Lines.Count - 1 do
begin
  if pos(edit1.Text,richedit1.Lines.Strings[i])<>0 then
  begin
     richedit1.SelStart := SendMessage(richedit1.Handle, EM_LINEINDEX, i, 0)+pos(edit1.Text,richedit1.Lines.Strings[i])-1;
     richedit1.SelLength := Length(edit1.Text);
     richedit1.SelAttributes.Color:=clred;
  end;
end;
end;
//Обнуляем нашу подсветку, нажатие на кнопку отмена
//Можно так же повесить на событие RichEdit-KeyDown
procedure TForm1.Button2Click(Sender: TObject);
begin
     richedit1.SelStart:=0;
     richedit1.SelLength:=Length(richedit1.Text);
     richedit1.SelAttributes.Color:=clblack;
end;

[Rebel123]

procedure TForm1.Button2Click(Sender: TObject);
begin
     richedit1.SelStart:=0;
     richedit1.SelLength:=Length(richedit1.Text);
     richedit1.SelAttributes.Color:=clblack;
end;

зачем этот код?
можно было бы просто на клике на Button1.
А как убрать из вашего кода чтоб на клике Button1 отмечало а не на выходе?
И еще + он находит не все слова, только что проверил он находит слово, только у меня он в двух местах был а он нашел только одну!

[russian-stalker]

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

procedure TForm1.Button2Click(Sender: TObject);
begin
     richedit1.SelStart:=0;
     richedit1.SelLength:=Length(richedit1.Text);
     richedit1.SelAttributes.Color:=clblack;
end;

зачем этот код?

Код для убирания всех выделений.

А как убрать из вашего кода чтоб на клике Button1 отмечало а не на выходе?

не понял смысл высказывания

И еще + он находит не все слова, только что проверил он находит слово, только у меня он в двух местах был а он нашел только одну!

Он чувствителен к регистру букв, т.е. test и Test для него разные слова
Чтобы сделать не чувствительны к регистру нужно

if pos(edit1.Text,richedit1.Lines.Strings[i])<>0 then

поменять на:

if Pos(AnsiUpperCase(edit1.Text), AnsiUpperCase(richedit1.Lines.Strings[i]))<>0 then

Обычно во всех редакторах текста есть выбор.

[Rebel123]

не понял смысл высказывания

Ну вот, смотрите, нажал я на Кнопку, а он не показывает что он нашел, (то есть не показывает что он выделил) а когда уже выходишь с поиска то тогда только выделяет слова которые нашел! А мне нужно чтоб на клике на Кнопку сразу показывал!

Кстати вот этот код работает правильно:

procedure TForm1.Button1Click(Sender: TObject);
var 
Find:string; // Искомая строка
i:integer; 
begin
find:=Edit1.Text; // Записываем в find текст из Edit
For i:=0 to Memo1.Lines.Count-1 do // Запускаем цикл поиска строки
If Pos(FIND, Memo1.Lines.Text)<>0
Then
Begin
Memo1.SetFocus();
Memo1.SelStart:=Pos(FIND,Memo1.Lines.Text)-1;
Memo1.SelLength:=Length(FIND);
End;
end;

[russian-stalker]

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

Ну вот, смотрите, нажал я на Кнопку, а он не показывает что он нашел, (то есть не показывает что он выделил) а когда уже выходишь с поиска то тогда только выделяет слова которые нашел! А мне нужно чтоб на клике на Кнопку сразу показывал!

может так?

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k:integer;
begin
for i := 0 to RichEdit1.Lines.Count - 1 do
begin
  if pos(edit1.Text,richedit1.Lines.Strings[i])<>0 then
  begin
     form1.setfocus;
     richedit1.SetFocus;
     richedit1.SelStart := SendMessage(richedit1.Handle, EM_LINEINDEX, i, 0)+pos(edit1.Text,richedit1.Lines.Strings[i])-1;
     richedit1.SelLength := Length(edit1.Text);
     richedit1.SelAttributes.Color:=clred;
  end;
end;
end;

[Rebel123]

Вроде работает! спасибо!

[Пепел Феникса]

а про стандартный метод ричэдита(FindText) все забыли чтоль?

[russian-stalker]

Ага, ещё вроде есть что-то типа SelText
Уже не помню