请教，查询数据到dbgrid显示，如何将值1显示为男，2显示女？

Question

请教，查询数据到dbgrid显示，如何将值1显示为男，2显示女？

Answer 1

ADOQUERY SETTEXT GETTEXT 里面写代码

Answer 2

function checkGender(const value: Integer): string;
begin
  case value of
    1: Result := '男';
    2: Result := '女';
    else
      Result := '未知';
  end;
end;
checkGender(1) 返回"男"
checkGender(2) 返回"女"

Answer 3

如果你能保证只有1和2的话还有个简单办法。
定义一个数组常量
const
gender: array [1..2] of string = ('男', '女');gender[1] 返回"男"
gender[2] 返回"女"使用起来要保证不越界，如果不能保证不越界还是用上楼的方法。 

Answer 4

procedure TForm1.ADOQuery1monthGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
 if sender.AsInteger=1 then
    text:='男'
 else
    text:='女';
end;