Показать сообщение отдельно
  #3  
Старый 04.06.2011, 04:21
lux16 lux16 вне форума
Прохожий
 
Регистрация: 28.08.2010
Сообщения: 22
Репутация: 10
По умолчанию

Есть вот такой способ, но он не идеальный
Код:
procedure TForm1.Edit1Change(Sender: TObject);
begin
  With Table1 Do
    Begin
      Filtered := False;
      FilterOptions := [foCaseInsensitive];
      Filter := '[Name]=''' + Edit1.Text + '*''';
      Filtered := True;
    End;
end;
Ответить с цитированием