dxDBGrid 中如何将整型字段值显示为相应字符串

数据库设计中，某些字段可能被设计成 Integer 类型，不同的 Integer 代表不同的含义；而在实际开发应用中若将这些 Integer 显示给用户明显意义不大――用户需要的是这些 Integer 的确切含义而不是这些 Integer 本身...
    于是在显示数据时需在 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） 方法。