Код:
procedure TForm1.Edit1Change(Sender: TObject);
begin
DataModule1.ZTable1.Filter:= [foCaseInsensitive];
DataModule1.ZTable1.Filter:='FAM = '''+'*' + edit1.Text + '*'+'''';
DataModule1.ZTable1.Filtered:=true;
end;
__________________
Последний раз редактировалось Admin, Сегодня в 10:32.
|