Возможно ли?

[Baaandit]

Много раз видел как при поиске слова или фразы в тексте она-если найдена выделяется. Возможно ли так сделать в DBmemo?Запрос составил работает вроде?

procedure TForm4.BitBtn2Click(Sender: TObject);
begin
with datamodule2.ADOQuery1
do
begin
Active:=false;
SQL.Clear;
SQL.Add('select *');
SQL.Add('From table1');
SQL.Add('WHERE Opican LIKE  ''%'+Edit4.Text+'%''');
Active:=true;
end;
end;

[mihali4]

Да ради бога...
Используем стандартные методы:

Pos(), PosEx()
DBMemo.SelStart
DBMemo.SelLength

[Baaandit]

Pos(), PosEx()-знаю.
DBMemo.SelStart
DBMemo.SelLength-буду разбираться. А в ячейки Dbgrid тоже возможно?

[mihali4]

По-моему, нет.
Вообще, для ДБГрида резоннее использовать Locate().
Например, в ДБГриде у вас - прайс-лист.
В Эдите вы начинаете набирать первые цифры кода товара и Locate сразу встанет на нужную группу (при условии сортировки по коду)...

[Baaandit]

С dbmemo почти разобрался. Первый раз выделяется, но когда перемещаюсь по записями бд выделение исчезает? Наверно надо в обработчике

procedure TForm4.Button1Click(Sender: TObject);
begin
datamodule2.ADOQuery1.First;
end;

писать ти по того?Или еще как можно?

s1:=dbmemo1.Text;
s2:=Edit4.Text;
a:=pos(s2,s1);
dbmemo1.SelStart:=a-1;
dbmemo1.SelLength:=length(s2);
dbmemo1.SetFocus;

Просто у меня 4 поля в Dbgrid находятся и одно в Dbmemo1. И когда кликаешь Dbgrid-меняется данные и в Dbmemo1-и выделение пропадает. Или в обработчике каком-то Dbgrid написать можно?

[mihali4]

Перемещение по записям вызывает событие QueryAfterScroll.
Там и обработчик должен быть.

[Baaandit]

И еще вопросы- если в мемо встречается слово несколько раз возможно все слова выделить? И цвет выделения поменять?

[mihali4]

Можно. Мы уже упоминали PosEx()...
Ищем темки вроде "цветные строки".

[Baaandit]

Вот пример простой сделал для себя не выделяет два куска строки в dbmemo. Выделяет один кусок. Почему?

procedure TForm4.Button1Click(Sender: TObject);
begin
dbmemo1.SelStart:=4;
dbmemo1.SelLength:=9;
dbmemo1.SelStart:=12;
dbmemo1.SelLength:=16;
dbmemo1.SetFocus;
end;

[mihali4]

Э-э-э нет, Мемо такого не позволяет...
Используйте DBRichEdit.