[Anchorte]

У меня есть некая база данных, текст вводится в Edit нужно сделать так чтобы при введение символов происходило фильтрование...
пробовал по аналогии с ComboBox'сом:

Код:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 if ComboBox1.Text='Все'
  then
    begin
     Table2.Filtered:=True;
     Table2.Filter:='Kod > 0';
    end
  else
    begin
     Table2.Filtered:=True;
     Table2.Filter:='Grup = ''' + ComboBox1.Text+'''';
    end;
end;

но так он ничего не выводит

[roamer]

Как минимум, нужно :

Код:

 Table2.Filtered:=False;  //!!!
 Table2.Filter:='...';
 Table2.Filtered:=True;  //!!!

[Anchorte]

Этот код работает нормаль. Я не могу сделать так чтобы по мере ввода символов в базе данных отбрасывались не подходящие по фильтру подскажите пожалуйсто

[Babuca]

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

У меня есть некая база данных, текст вводится в Edit нужно сделать так чтобы при введение символов происходило фильтрование...

beriom timer s intervalom k primeru 500ms i vyrubaem evo enabled:=false.
OnChange editboksa pishem

Код:

Timer1.Enabled:=False; Timer1.Enabled:=True;

a dalse u timera propisivaem sledushi kod

Код:

If Trim(Edit1.Text)<>'' Then
  Begin
   try

    ADOTable1.Filtered := True;
    ADOTable1.Filter := 'gvari LIKE ''' + Edit1.Text+ '%' + '''';

   finally
    Timer1.Enabled:=False;
   end;
  end
   else
  begin
    ADOTable1.Filtered := False;
  end;

p.s. izvinite za translit

[Yurk@]

код для поиска по ДБФ через TQuery ... для ADOTable должно быть аналогичным:

Код:

procedure TfForm.Ed1Change(Sender: TObject);
begin
if Length(Ed1.Text)>0 then
begin
Ed2.Enabled:=False;
Q1.Filter:='TIN = '''+Ed1.Text+'*''';
Q1.Filtered:=True;
end
else
begin
Ed2.Enabled:=True;
Q1.Filtered:=False;
end;
end;

[Anchorte]

Спасибо за помощь. Вечером попробую.