My God!
procedure TForm1.Table1IdGetText(Sender: TField;
var Text: String;
DisplayText: Boolean);
begin
case (Sender as tfield).asinteger of
1:
begin
Displaytext:='汉';
end;
2:
begin
Displaytext:='满';
end;
3:
begin
Displaytext:='回';
end;
else
begin
//非法数字
end;
end;
end
还有什么不明白的?