Не могу установить фильтр на таблицу

← →
AntonUSAnoV (2008-03-20 18:37) [0]

var time: Tdatetime; year, month, day: Word; filter:string; begin try time:=now; decodedate(time, year, month, day); filter:="1."+inttostr(month)+"."+inttostr(year); tsorevnovania.Filter:="Data1>"""+filter+""""; tsorevnovania.Filtered:=true; except end;

После вот такого кода программа запускается, и после применения фильтра, выдаётся сообщение с ошибкой No current record , что как я понял значит что нет записей удовлетворяющих фильтру, но если задавать фильтр через инспектор объектов, то всё нормально, есть записи...

← →
Palladin © (2008-03-20 18:39) [1]

а try except end это так специально сделано? типа были какие то непонятные тебе ошибки и ты решил, что если ошибку не видно - значит ее нет. гениально.

← →
AntonUSAnoV (2008-03-20 18:57) [2]

допустим убрал try except end

← →
Palladin © (2008-03-20 19:17) [3]

ага... давай допустим... и что... ругается? кстати, переменную time можешь не заводить, такая функция и так есть... так же как и функция date

← →
aleko (2008-03-20 20:10) [4]

Возможно у тебя фильтр задан неверно, кажется должно быть так:
sorevnovania.Filter:="Data1 > " + """" + filter + """";

Не могу установить фильтр на таблицу Найти похожие ветки