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

我不太确定该如何放置。我正在根据值为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的字段变为彩色。

最佳答案

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

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