标签：delphi 编译 cal app empty null 问题 cti expr
场景，程序想检查是否存在某个字段的值是空的，如果存在，则不允许增加记录，否则允许增加记录。
解决这个问题，我一开始用了两种错误的方法
if not clientdataset.locate(‘AFieldName‘,‘‘,[]) then //如果存在字段AFieldName的值为空的记录，则不允许增加一行记录append clientdataset.append else exit;
第二种错误方法
ClientDataset.Filtered := false; ClientDataset.Filter := ‘AFieldName=‘‘‘‘‘; ClientDataset.Filtered := true; if ClientDataset.Recordcount>0 then exit else ClientDataset.append;
第三种，遍历记录，记录太多了，不适用。
前两种方法，如果字段值为‘’(emptystr),那就没问题，但问题是，字段值为null，那么就定位不到或过滤不到这种记录了。
于是百度了一下，发现使用较多的方法是
clientdataset.locate(‘AFieldName‘,null,[])
当时觉得不可行，因为Delphi里的空是用nil表示的，不存在null关键字。
后来鬼使神差的，居然还是试了一下，居然编译通过了！！！而且，居然能成功定位到了字段值为null的记录。真是狠狠地给我上了一堂课。
后面查看代码，原来这个null是Variants单元里的一个方法，所以要使用还得先引用这个单元。
unit Variants; function Null: Variant; begin _VarNull(TVarData(Result)); end;
原来是这么一回事。然后再看看ClientDataset的locate函数，发现里面有个判断
if VarIsNull(Value) then
Expr := Expr + Format(‘[%s] IS NULL‘,[TField(Fields[i]).FieldName]) { Do not localize }
else
Expr := Expr + Format(‘[%s]=%s‘,[TField(Fields[i]).FieldName, ValStr]);
这一句是拼凑Filter表达式的判断语句，也由此可知，想使用Filter过滤空值（null）的记录就需要这样写
Filter := ‘AFieldName is null‘;
ClientDataSet使用locate或Filter定位到字段为空值的记录
标签：delphi 编译 cal app empty null 问题 cti expr
原文地址：https://www.cnblogs.com/Kwong/p/10300597.html
