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

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