Не правильно фильтрует

[adaptaciya]

У меня есть Edit, в него ввожу "Фамилию" и он должен найти ее. А у меня, после полного введения фамилии в поле Edit, оставляей только те фамилии которые находятся ниже искомой.

вот код

procedure TStudentForm.FilterFamEditChange(Sender: TObject);
begin
If Length(FilterFamEdit.Text)>0 then
   DataModule1.StudentTable.Filtered:=True
else DataModule1.StudentTable.Filtered:=False;
DataModule1.StudentTable.Filter:='Фамилия>'''+FilterFamEdit.Text+'''';
end;

[Arishk@]

Можно так попробовать

procedure TStudentForm.FilterFamEditChange(Sender: TObject);
begin
If Length(FilterFamEdit.Text)>0 then
   DataModule1.StudentTable.Filtered:=True
else DataModule1.StudentTable.Filtered:=False;
DataModule1.StudentTable.Filter:='Фамилия like '+quotedstr(FilterFamEdit.Text)+quotedstr(%);
end;

короче процент тоже в кавычках если че)))

[adaptaciya]

так вообще не работает )

[adaptaciya]

то есть ввожу фамилию, или даже букву, и в таблице вообще ничего нет. пусто

[Аватар]

procedure TStudentForm.FilterFamEditChange(Sender: TObject);
begin
  DataModule1.StudentTable.Filtered:=False;
  If Length(FilterFamEdit.Text)>0 then begin
    DataModule1.StudentTable.Filter:='Фамилия like '+quotedstr(FilterFamEdit.Text+'%');
    DataModule1.StudentTable.Filtered:=True;
  end;
end;

[adaptaciya]

Спасибо огромное! )

[Arishk@]

Аватар, спасибо! А то я думала куда этот процент вставить)