Показать сообщение отдельно
  #7  
Старый 30.10.2006, 07:50
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,907
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

пример:
на форме Edit1, Table1, Button1
заполняем Edit1 и жмем на батон
всего две процедуры
1:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
  Table1.Filtered:=not(Table1.Filtered);
  if Table1.Filtered then
    Button1.Caption:='Filtered'
  else
    Button1.Caption:='not filtered';
end;
2:
Код:
procedure TForm1.Table1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  if Length(Edit1.Text)<1 then
    Exit;
  Accept:=
    UpperCase(DataSet.FieldByName('FAM').AsString)=UpperCase(Edit1.Text);
end;
Все работает.
Ответить с цитированием