cxGrid行背景色出错

Question

...
if Length(Trim(AViewInfo.GridRecord.Values[3])) > 11 then
ACanvas.Canvas.Brush.Color := clRed;
...现在程序报错“could not convert variant of type （Null） into type (string)”表格中某些行的值确实是NULL，请问怎么解决呢？

Answer 1

将AViewInfo.GridRecord.Values[3]的内容先取出来，放在临时变量里，为NULL时置为空。
后面使用Trim就不会出问题了。

Answer 2

uses Variants;
...
if Length(Trim(VarToStrDef(AViewInfo.GridRecord.Values[3], ''))) > 11 then
ACanvas.Canvas.Brush.Color := clRed;
...