TTable, TTable.Filter

← →
Alexander Smith © (2004-02-13 01:22) [0]

Здравствуйте все.
Если не влом и не сложно, то помогите.

Вопрос №1.
Итак.
Инициализируем фильтр таблички.
Table1.Filter="(FIO="+QuotedStr(Crypt(IncomingValue0)+"*")+")"; if (a>2) then Table1.Filter="and (DEP="+QuotedStr(Crypt(IncomingValue1)+"*")+")"; if (a>4) then Table1.Filter="and (ACCOUNT_BALLANCE="+QuotedStr(Crypt(IncomingValue2)+"*")+")"; Table1.Filtered:=True;
Допустим результатом фильтрации является пустая таблица.
Как мне это увидеть - какое св-во или событие возникает при этом ?
ВНИМАНИЕ! RecNo и всем с ним связанное не предлагать!

Вопрос №2.
Возникает ошибка "Could not convert variant of type (Null) into type (String)".
Возникает в этой строчке
Text:=Sender.Value;
где Text - var String, Sender.Value - значение некого поля Table1 которое для рисования в DBGrid по событию OnGetText изменяется в соответствующей процедуре.
Каким If-ом мне отследить то, что Sender.Value имеет Type Null, если вообще оно Type Variant.
т.е.

If not(логическое выражение) then begin Test:=Sender.Value ... end else begin ... end;

Заранее спасибо.
С уважением.

← →
SPIRIT © (2004-02-13 06:36) [1]

> Возникает ошибка "Could not convert variant of type (Null)
> into type (String)".

if sender.value<>null then *************

← →
Кщд (2004-02-13 06:40) [2]

правильнее TField.IsNull, imho

>RecNo и всем с ним связанное не предлагать!
это почему?

← →
Sirgfine (2004-02-13 06:59) [3]

На вопрос 1
...
Table1.First;
Table1.Eof;
...
если первая запись является окончанием (не последней, а кончанием), то таблица точно пустая.

Ещё можешь проверить значение в столбце, который не может быть пустым, но это сложнее и он может быть единственным пустым в строке...

← →
Silver Alex © (2004-02-13 09:23) [4]

1.Dataset.IsEmpty
2.VarIsNull(v) проверяет или v не null

TField.Text -
можна еще
TField.AsString - но при етом может вызыватся такая же ошибка

Всем огромное спасибо. Все помогло.

TTable, TTable.Filter Найти похожие ветки