[baksan]

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

[windaws]

Код:

procedure TPokupateli.Edit1Change(Sender: TObject);
begin
if (edit1.text<>'') then
begin
dm.org_table.Filter:='(Название LIKE '''+edit1.Text+'%'')';
dm.org_table.Filtered:=true;
end
else
dm.org_table.Filtered:=false;
end;

Admin: Пользуемся тегами!

2 раза щелкаешь на едит создается событие Edit1Change туда этот код, (dm - модуль данных, org_table - фильтруемый источник данных)

[baksan]

)) ща попробую