0
点赞
收藏
分享

微信扫一扫

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

心存浪漫 2024-01-16 阅读 15

要在设计的时候,界面上显示值

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

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;

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

 

举报

相关推荐

0 条评论