Delphi10.3的DBGrid之外键显示(07)

procedure TForm13.FDQuery1idGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
if Sender.AsInteger =1  then    text:='一'  else
if Sender.AsInteger =2  then    text:='二'  else
if Sender.AsInteger =3  then    text:='三'  else
if Sender.AsInteger =4  then    text:='四'  else
if Sender.AsInteger =5  then    text:='五'
end;