Фильтр через CheckListBox не конвертирует, не отображает null

[reihtmonbern]

Добрый вечер у меня к вам вопрос ?
делаю фильтр через CheckListBox
1
в формкриэйт написал вот этот код

while not ADOQuery2.Recordset.EOF do
begin
CheckListBox1.Items.Add(ADOQuery2.Recordset.Fields[0].Value);
ADOQuery2.Recordset.MoveNext;
end;
while not ADOQuery3.Recordset.EOF do
begin
CheckListBox2.Items.Add(ADOQuery3.Recordset.Fields[0].Value);
ADOQuery3.Recordset.MoveNext;
end;

поиск по нажатию на кнопку

var
  I : Integer;
  S : string;
begin
  DataModule3.ADOTable1.filtered:=false;
  S := '';
  for I := 0 to CheckListBox1.Items.Count - 1 do
    if CheckListBox1.Checked[I] then
      S := S + 'Грузополучатель_ТОРГ12 = ' + QuotedStr(CheckListBox1.Items[I])+' or ';

  if S <> '' then
    S := Copy(S, 1, Length(S)-4);
  DataModule3.ADOTable1.Filter := S;
  DataModule3.ADOTable1.filtered:=true;
end;

программа работает но фильтр не отображает пустые строки либо вообще ругается и в чекбоке пусто он не работает.
в приложении картинка с ошибками
и сама программа подскажите пожалуйста как правельно нужно изменить код чтобы программа конвертировала и отображала значение null ??


___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это не символ решёточки, это КНОПОЧКА с решёточкой #) - смотри крайную кнопку на панели форматирования сообщения

Модератор.

[evg_m]

как правельно нужно изменить код чтобы программа конвертировала и отображала значение null

1. узнать что мы (программа) хочет показать нам пустое значение (тот самый Null).

ADOQuery2.Recordset.Fields[0].IsNULL
ADOQuery2.Recordset.Fields[0].Value =NULL

2. Вывести какой-либо удобоваримый текст

CheckListBox1.Items.Add('значнение =NULL');