Delphi 实现在Cxgrid列表加一列序号

在Cxgrid中有OnGetDisplayText（）事件，这个时间可以完成在Cxgrid表格中加一列序号，这列序号不会根据排序改变而改变。

---

procedure TForm1.cxGrid1DBTableView1Column1GetDisplayText(

     Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;

 var AText: string);

begin

atext:=inttostr(arecord.Index);

end;

---

在Cxgrid中有OnGetDataText（）事件，这个时间可以完成在Cxgrid表格中加一列序号，这列序号会根据排序改变而改变

---

procedure TForm1.cxGrid1DBTableView1Column1GetDataText(

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

begin

atext:=inttostr(arecord.Index);

end;