Question

我不确定如何把这个。我根据值着色cxDB网格字段：

procedure TForm1.cxGrid1DBTableView1StylesGetContentStyle(
  Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
  AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
  var  AColumn: TcxCustomGridTableItem;
begin
AColumn := (Sender as TcxGridDBTableView).GetColumnByFieldName('SIFRA');
 if VarToStr(ARecord.Values[AColumn.Index]) =  '007 01' then
      AStyle := cxstyle1; 
end;

我想更改代码，以便列中包含007的所有字段都会变色。

Answer 1

根据评论，您正在寻找一种方法来编写语句，以确定某个文本是否以指定的字符串开头。为此您可以使用例如StartsText函数（System.StrUtils）。如果当前单元格文本以007开头，则以下语句将评估为True：

if StartsText('007', VarToStr(ARecord.Values[AColumn.Index])) then

delphi - 根据其内容着色cxdbgrid字段

1 个答案: