于是在显示数据时需在 Integer 及其相应的 字符串 间稍作转换。
实现代码:
//Tfrm_Main: TForm;
//DBGrid_QryRst: TdxDBGrid;
//先为 DBGrid_QryRst 增加几列,设置好其对应字段,再在某列(如第七列)的 OnGetText 中撰写代码
procedure Tfrm_Main.DBGrid_QryRstColumn7GetText(
Sender: TObject; ANode: TdxTreeListNode; var AText: String);
begin
try
case (Sender as TdxDBGridColumn).Field.AsInteger of
1:
AText:= '货到付款';
2:
AText:= '网付通ChinaPay';
3:
AText:= '支付宝';
4:
AText:= '银行转账';
5:
AText:= '邮局汇款';
else
AText:= (Sender as TdxDBGridColumn).Field.AsString;
end;
except
end;
end;
另,Delphi 自带的 DBGrid 的 Column 同有 OnGetText(及 OnSetText) 方法。