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

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)。如果当前单元格文本以 开头，则以下语句将评估为 True 007：

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