Если...
procedure TForm1.PoiskEditChange(Sender: TObject);
begin
if Length(PoiskEdit.Text)>0 then
DataModule1.ADOTable1.Filtered:=true
else
DataModule1.ADOTable1.Filtered:=false;
DataModule1.ADOTable1.Filter:='Фамилия>'''+PoiskEd it.Text+'''';
end;
end.
то, поиск не проводится ваапче
А если...
procedure TDataModule1.ADOTable1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept:=false;
if copy(ADOTable1DSDesigner.AsString,1,Length(Form1.P oiskEdit.Text))=
Form1.PoiskEdit.Text then
Accept:=true;
end;
end.
то список фамилий пропадает
первый раз такое делаю,может, что не так
Ну, или подскажите метод сортировки, что-ли