SQL语句:
var
  str:string;
begin
str:='select 性别=case 性别 when ''M'' then ''女'' else ''男'' end from tablename';
with Query do
begin
close;
sql.clear;
sql.add(str);
open;
end;
end;

解决方案 »

  1.   

    用SQL,可以建一张表有两个字段,sex,sexname两条纪录
    m  男(写什么随你)
    f  女
    将两张表以sex为关键字连接
      

  2.   

    如果你的字段为boolean型,可以在dbgrid的数据源的控件中的该字段的displayvalues中设定。
    如果不是,其dataset控件可用Tquery,其SQl语句为。
    select 性别,显示性别=case 性别 when 'm' then '男' when 'w' then '女' else ‘不详 ’end from tablename
    然后:query1.filedbyname('性别').visible:=false;
      

  3.   

    另一方法:
    增加计算字段,
    在OnCalcField事件中处理。
      

  4.   

    procedure Tdamo_program.Query1noplayGetText(Sender: TField;
      var Text: String; DisplayText: Boolean);
    begin
            if DisplayText then
            begin
               if Sender.AsBoolean then
               begin
                    Text:='是';
               end
               else
               begin
                    Text:='否';
               end;
            end;
    end;
    noplay是query1的field edit中的一个字段它有GetText事件