2

これを置く方法が正確にはわかりません。値に基づいて 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 があるすべてのフィールドが色付きになるようにコードを変更したいと思います。

4

1 に答える 1

3

コメントによると、特定のテキストが指定された文字列で始まるかどうかを判断するステートメントを記述する方法を探していました。これには、たとえばStartsText関数 ( System.StrUtils) を使用できます。現在のセル テキストが で始まる場合、次のステートメントは True と評価されます007。

if StartsText('007', VarToStr(ARecord.Values[AColumn.Index])) then
于 2013-11-29T08:09:34.390 に答える