例如Sex字段1为男,2为女,生成静态字段,然后在OnGetText和OnSetText事件下控制
procedure TForm1.Table1CompanyGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
if Sender.Asstring=1 then
Text:='男'
else if Sender.AsString=2 then
Text:='女'
else Text=''
end;
procedure TForm1.Table1Addr2SetText(Sender: TField; const Text: String);
begin
if Text='男' then
Sender.AsString:='1'
else if Text='女' then
Sender.AsString:='2'
end;
//这只是最简单的写法,具体的写法你要与你数据表中的值对应。