Delphi implements adding a column of serial number to the CXGRID list

stay Cxgrid There is OnGetDisplayText（） event , This time can be completed in Cxgrid Add a column number to the table , The sequence number in this column will not change according to the sorting change .

---

procedure TForm1.cxGrid1DBTableView1Column1GetDisplayText(

     Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;

 var AText: string);

begin

atext:=inttostr(arecord.Index);

end;

---

stay Cxgrid There is OnGetDataText（） event , This time can be completed in Cxgrid Add a column number to the table , The sequence number of this column will change according to the sorting change

---

procedure TForm1.cxGrid1DBTableView1Column1GetDataText(

 Sender: TcxCustomGridTableItem; ARecordIndex: Integer; var AText: string);

begin

atext:=inttostr(arecord.Index);

end;