[Anchorte]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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]

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

Код:

1 2 3

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

Код:

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

a dalse u timera propisivaem sledushi kod

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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 должно быть аналогичным:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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]

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