Все работает))) Но у меня есть в базе поле с типом счетчик. Пишу код
Код:
procedure TForm2.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text) > 0 then
begin
ADOQuery1.Filtered:=false;
ADOQuery1.Filter:='№ i\b LIKE '+ '''' + Edit1.Text + '%' + '''';
ADOQuery1.Filtered:=true;
end
else ADOQuery1.Filtered:=false;
end;
А при вводе в поле Edit мне ошибку выдает. Предварительно прописал что можно вводить только цифры.
Код:
procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', #8])then Key:=#0;
end;