Delphi中ClientDataSet.Lookup布尔字段记录存在性判断异常问题

问题根源 #

ClientDataSet的Lookup方法在返回布尔类型（ftBoolean）字段时，会将false值包装为Null变体，导致用VarIsNull无法区分「记录不存在」和「字段值为false」两种场景。

可行解决方案 #

方案1：同时查询主键字段 #

不要仅查询布尔字段，将主键（如ID）与目标布尔字段一同作为返回字段，通过判断主键是否为Null确认记录是否存在：

var
  id: Integer;
  V: Variant;
  found: Boolean;
  markValue: Boolean;
begin
  id := 5;
  // 同时查询ID和Mark字段
  V := DM.PeopleCDS.Lookup('ID', id, 'ID;Mark');
  // 主键非空则说明记录存在
  found := not VarIsNull(V.ID);
  if found then
    markValue := V.Mark;
end;

即便Mark字段值为false，只要主键存在，就能判定记录实际存在，不会误判。

方案2：先定位记录再取值 #

用Locate方法先定位目标记录，再直接读取字段值，彻底规避Lookup的变体转换问题：

var
  id: Integer;
  found: Boolean;
  markValue: Boolean;
begin
  id := 5;
  // 定位指定ID的记录
  found := DM.PeopleCDS.Locate('ID', id, []);
  if found then
    // 直接读取布尔字段值
    markValue := DM.PeopleCDS.FieldByName('Mark').AsBoolean;
end;

这种方式逻辑直观，完全避免了变体歧义问题，是最可靠的方案。

方案3：结合VarIsEmpty判断（不推荐） #

若坚持使用Lookup，可结合VarIsEmpty和VarIsNull判断：记录不存在时返回的变体是Empty且Null，而字段为false时返回的变体是Null但非Empty：

var
  id: Integer;
  V: Variant;
  found: Boolean;
  markValue: Boolean;
begin
  id := 5;
  V := DM.PeopleCDS.Lookup('ID', id, 'Mark');
  // 非Empty则说明记录存在
  found := not VarIsEmpty(V);
  if found then
    markValue := Boolean(V);
end;

该方法依赖Delphi对变体的内部处理逻辑，稳定性不如前两种方案。

测试验证 #

将方案2的逻辑替换到测试代码中，即可准确区分记录状态：

var
  id: Integer;
  found: Boolean;
begin
  Memo.Lines.Add('Lookup ID for a ftBoolean field (using Locate)');
  for id := 1 to 12 do
    begin
      found := DM.PeopleCDS.Locate('ID', id, []);
      Memo.Lines.Add('   ID ' + IntToStr(id) + ' found? ' + BoolToStr(found));
      if found then
        Memo.Lines.Add('       Mark value: ' + BoolToStr(DM.PeopleCDS.FieldByName('Mark').AsBoolean));
    end;
end;

测试结果会准确显示所有存在的记录，包括Mark字段值为false的情况。

内容的提问来源于stack exchange，提问作者Kevin Killion