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;