数据库显示有关问题

数据库显示问题
将ADOquery   ADOTable   的结果放到DBgrid中   我想实现数据库中的某一列如果是0   则显示 '男 '   如果是1   则显示‘女’   这个显示要怎么做   以前记得   现在不记得了   呵呵

------解决方案--------------------
在字段的GetText 和 SetText 中写代码:
procedure TDMDP_RES.cdsDP_CompanyIsOpenGetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
if sender.AsBoolean then
Text:= '已开业餐厅 '
else if (sender.AsBoolean=false) then
Text:= '新店址餐厅 ';
end;

procedure TDMDP_RES.cdsDP_CompanyIsOpenSetText(Sender: TField;
const Text: String);
var
mStr: boolean;
begin
if Text= '已开业餐厅 ' then
mStr:=true
else if Text= '新店址餐厅 ' then
mStr:=false;

sender.Value:=mStr;
end;