[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