Код события OnChange у компонента FilterFamEdit - TEdit (FilterFamEdit - строка поиска)
procedure TStudentForm.FilterFamEditChange(Sender: TObject);
begin
If Length(FilterFamEdit.Text)>0 then
DataModule1.StudentTable.Filtered:=True
else DataModule1.StudentTable.Filtered:=False;
DataModule1.StudentTable.Filter:='Фамилия>'''+Filt erFamEdit.Text+'''';
end;
|