delphi - coloring cxdbgrid field depending on its content

StackOverflow https://stackoverflow.com/questions/20183431

Question

I am not exactly sure how to put this. I am coloring cxDB grid field based on the value:

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;

I would like to change the code so that all the fields that have 007 in the column get coloured.

Was it helpful?

Solution

According to comments, you were looking for a way how to write a statement to determine if a certain text starts with a specified string. For this you can use e.g. the StartsText function (System.StrUtils). The following statement will evaluate to True if the current cell text starts with 007:

if StartsText('007', VarToStr(ARecord.Values[AColumn.Index])) then
Licensed under: CC-BY-SA with attribution
Not affiliated with StackOverflow
scroll top