使用 Delphi OnDrawColumnCell 如何确保在应用条件格式之前记录值存在

Question

我正在使用 Delphi 2010，其中 dbgrid 通过 ADO 绑定到 Access mdb 数据库中的表。

该表是根据单选组框中的点击进行过滤的。

以下代码根据表中的数据对行进行颜色编码，但失败并显示错误对话框，指出

       "" is not a valid integer value

过滤器是否返回空数据集。我以为我已经允许在没有返回记录的情况下不调用颜色设置，但它似乎不起作用；请参阅下面的代码

procedure TMainForm.DBGridAbsenceDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
     //Need to add code to detect if record exists
     with DBGridAbsence.Canvas do
     begin
           RecordCountLabel.Caption.Text :=  'Absence Records: ' + IntToStr(ADOTblAbsence.RecordCount);
           font.color:=clBlack;
           brush.color:=clMoneyGreen;
           If ( ADOTblAbsence.State <> dsInsert ) and ( ADOTblAbsence.RecordCount > 0 ) then
           begin
                Font.Color := StringToColor(ADOTblAbsenceForeground.AsString);
                Brush.Color:= StringToColor(ADOTblAbsenceBackground.asstring);
           end;

          DBGridAbsence.DefaultDrawColumnCell(Rect, DataCol, Column, State);
    end;
end;

非常感谢您提供的所有帮助。注意我也尝试过条件语句，例如，

if Trim(ADOTblAbsenceForeground.AsString) <> ''

但这似乎也不起作用。

Answer 1

当您尝试将空字符串转换为整数时，会出现“”不是有效的整数值消息。您的代码示例中没有任何内容看起来相关。因此，它要么必须在您从此处调用但尚未向我们展示的某些代码中，要么在某些完全其他的代码中。

StringToColor 可能是一个候选者。如果这些列中有空值，则会触发该消息。因此，请使用表浏览器或数据库管理器软件检查您的数据库值。

此外，您还可以使用 StrToIntDef，而不是在执行 StrToInt 之前检查所有这些不同的场景，它用 try except 块包围 StrToInt，并在发生异常时返回您提供的默认值；

SomeInt := StrToIntDef(SomeString, 0);

Answer 2

我首先测试数据集在过程开始时是否为空：

procedure TMainForm.DBGridAbsenceDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if not DBGridAbsensce.DataSet.IsEmpty then
  begin
    //Need to add code to detect if record exists
    with DBGridAbsence.Canvas do
    begin
      RecordCountLabel.Caption.Text :=  'Absence Records: ' +
               IntToStr(ADOTblAbsence.RecordCount);
      font.color:=clBlack;
      brush.color:=clMoneyGreen;
      If ( ADOTblAbsence.State <> dsInsert ) then
      begin
        Font.Color := StringToColor(ADOTblAbsenceForeground.AsString);
        Brush.Color:= StringToColor(ADOTblAbsenceBackground.asstring);
      end;
    end;
  end;
  DBGridAbsence.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;