БД (Access) и Delphi

Помогите пожалуйста с поиском. Есть цена, хочу сделать от и до (типа вводишь в один edit 10, в другой 20 и он в таблице отображает строки в данном диапазоне. В edit2 уже пытался что-то сделать,но не работает. PS сам в программирование полный 0.
procedure TForm1.Edit2Change(Sender: TObject);
begin
if edit2.Text <>'' then
begin
tbl1.Filtered:=false;
tbl1.Filter:='(Цена >= '+Edit2.Text+') and (Цена <= '+Edit9.Text')'; //вот тут пытался
tbl1.Filtered:=true;
END
ELSE
tbl1.Filtered:=FALSE;
end;
 
procedure TForm1.Edit9Change(Sender: TObject);
begin
if edit9.Text <>'' then
begin
tbl1.Filtered:=false;
tbl1.Filter:='Цена <= '+Edit9.Text;
tbl1.Filtered:=true;
END
ELSE
tbl1.Filtered:=FALSE;
end;
1 ответ

Помогите пожалуйста с поиском
это не поиск, это фильтр
Есть цена, хочу сделать
убери событие OnChange - сделай сначала на кнопку
PS сам в программирование полный 0.
вот ты зачем такое пишешь? это +5 к жалости что ли?