Удаление дубликатов, фильтр по дате...

[Poltish]

Всем доброго дня. Проблема в следующем:
1) В базе (BDE база, Paradox), так получается, что точно будут дубликаты. Честно искал и по форуму и в google, да для bde не нашёл. Подскажите, пожалуйста, как удалить эти самые дубликаты. Написал данный код:

for i := 1 to form1.Table1.RecordCount do
  begin

    buf:= Form1.Table1Названиепоставщика.Text;  

      for j := Form1.Table1.RecordCount downto 1 do
        begin
            if j = i then Break; 

              if
              (form6.Table1Названиепоставщика.Text = buf)  then form1.DBGrid1.DataSource.DataSet.Delete else
              ShowMessage('Это не дубликат!');

        end;
  end;

Хоть условие НЕ на дубликаты и срабатывает, DbGrid всё-равно чистый :'(

И проблема №2:

Так получилось, что приходится использовать кириллицу в полях (что видно из кода выше). В следствии этого очень сильно жизнь мне испортили обычные фильтры. С типичным Filter для кириллицы разобраться не смог, заюзал событие OnFilterRecord. Проблема в том, что не могу придумать или нагуглить код, который будет делать выборку по цене (грубо говоря, значение поля должно быть > , < , =) значению, введённому в соответствующий Edit.

Написал код события:

if Form1.Edit1.Text <> '' then accept:= (DataSet.FieldByName('Цена').AsInteger > StrToInt(Form1.Edit1.Text));

Кидает ошибку "Invalid variant operation"

И так же с выборкой даты, не могу понять как реализовывать. Большое, заранее, спасибо.

[Stilet]

А ты в событии фильтрации не проверяешь на NULL?
Кстати почему у тебя цена целочисленная?

[Аватар]

Дубликаты запросом лучше всего искать. А приведенный код вообще не понятно что делает, вернее должен почистить всю таблицу или оставить одну запись, если изначально одна и была

[Poltish]

Сообщение от Аватар

Дубликаты запросом лучше всего искать. А приведенный код вообще не понятно что делает, вернее должен почистить всю таблицу или оставить одну запись, если изначально одна и была

Можно подробнее, каким запросом? Я понимаю, что где-то накосячил в коде, поэтому и прошу помощи.

[Poltish]

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

А ты в событии фильтрации не проверяешь на NULL?
Кстати почему у тебя цена целочисленная?

Вопрос ведь не в этом..
Валюта цены в отдельной колонке, сама цена в виде числа, мне так удобнее. Главное понять, как фильтр сделать. Если знаете, скажите, пожалуйста.

[Stilet]

Так я же сказал: возможен NULL, коево ты не обрабатываешь.
Если ты говоришь что цена у тебя целочисленная то тут я не спорю. А вот на проверку этого поля на пустоту стоит описать.

if not DataSet.FieldByName('Цена').IsNull then...