Фильтрация (delphi)

[VadEr]

Добрый день!
Подскажите пожалуйста, как прописать фильтрацию, чтобы выводились записи по одному полю в значениях которых последний символ равен нулю?

одно поле должно быть пустым:
При активации формы пишу:
Table.Filter := '[xxx] = ''''';
другое поле должно заканчиваться на ноль
procedure TableFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
Accept := Table.FieldByName('zzz').AsString = '%0';
end;
программа зацикливается, что не правильно?

[DuM4uK]

Тут я тебе посоветую проверять в цикле каждую запись на 0, если равна то выводить.
Другого варианта не вижу пока.

[Usov]

если есть возможность использовать Query то там это реализуется проще, методом like ('%0')

[Serge_Bliznykov]

Accept := Table.FieldByName('zzz').AsString = '%0';

так нельзя. Подстановочные знаки можно использовать только при запросе в конструкции LIKE
И программа не "зацикливается" - а просто ни одной записи, в которой написано %0 (именно в поле два символа первый символ - знак процента, второй символ - ноль) - НЕТ! поэтому и выдавать нечего.

я бы Вам рекомендовал прислушаться к совету Usov и в запросе отбирать нужные записи, это будет проще, нагляднее и намного эффективнее!

но, если же хочется это сделать через фильтрацию,то попробуй примерно такой код:

procedure TableFilterRecord(DataSet: TDataSet; var Accept: Boolean);
var s : string;
begin
  s := Table.FieldByName('zzz').AsString;
  Accept :=  Copy(s, Length(s),1) =  '0';
end;

[VadEr]

Спасибо помогло. Но возник вопрос по эффективности: где скорость работы будет выше - в sql или table? таблица содержит не одну тысячу записей

[Serge_Bliznykov]

Это зависит от разных условий...
Но, в подавляющем большинстве случаев - быстрее будет использовать запрос, т.к. запрос, конечно, будет выполнятся чуть дольше ( чем без условия LIKE ), но потом работа с полученным набором данных будет намного быстрее, чем с использованием функции TableFilterRecord...