Фильтрация не с первой буквы в Dbgrid

[Roman123654789]

Написал фильтрацию на компоненте ADOTable, но фильтрация проходит тогда когда вписана первая буква, а как сделать фильтрацию когда вписываю например пятую букву ?

[Stilet]

Используй соответствующее событие:

procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);

begin
  Accept := pos(Edit.Text,DataSet['DateOfPayment'].AsString)<>0;

end;

Это из хелпа пример - Если то что введено в Ждите содержится в поле - запись принимается, иначе фильтруется.

[Аватар]

Можно попытаться LIKE использовать. Следующая конструкции по идее должна отфильтровать все записи, у которых 5-ый символ поля DateOfPayment равен 'б'. Но это по идее и если хелпу верить. Так для SQL, насколько компоненты ADO продвинуты в этом смысле не в курсе, никогда не пробовал

ADOTable.Filter:='DateOfPayment LIKE ''____б%''';

[Stilet]

Вот пичалька - такие фокусы в фильтре на клиенте не всегда проходят.
Сам нарвался когда-то. Так особо и не понял от чего зависит. Может от BDE может еще от чего.

[Roman123654789]

Сообщение от Stilet

Используй соответствующее событие:

procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);

begin
  Accept := pos(Edit.Text,DataSet['DateOfPayment'].AsString)<>0;

end;

Это из хелпа пример - Если то что введено в Ждите содержится в поле - запись принимается, иначе фильтруется.

У меня было так :
procedure TForm5.Таблиця1FilterRecord(DataSet : TDataSet;
var Accept: Boolean);
var s:string;
begin
s:=copy(dataset['Дата'],1,Length(ed));
accept:=s=ed;
После замены вашим кодом и подстановки своих данных у меня вибивает ошибку

[Stilet]

вибивает ошибку

Соболезную, но я не экстрасенс. У меня ничего не выбивает.