TFieldフィールド名と表示名

ユニットUnit1は、

インタフェースが

使用する
  Windowsの、メッセージ、sysutilsの、バリアント、クラス、グラフィックス、コントロール、フォーム、
  ダイアログ、グリッド、DBGridsを、DB、ADODB、StdCtrls; 

入力
  TForm1 = クラス（TFormは）
    BTN1：のTButtonと、
    edt1：TEDIT。
    edt2：TEDIT。
    DS1：のTDataSource。
    QRY1：TADOQuery。
    CON1：TADOConnectionの。
    dbgrd1：のTDBGrid。
    BTN2：TButtonの。
    edt3：TEDIT。
    edt4：TEDIT。
    edt5：TEDIT。
    手順btn1Click（送信者：TObjectを）;
  プライベート
    { プライベート宣言} 
  公共
    {公開宣言} 
  エンド。

VAR 
  をForm1：TForm1; 

実装

{ $ R * .DFM } 

手順TForm1.btn1Click（送信者：TObjectを）。
始め
  に QRY1 ん
  始め
    閉じます。
    sql.Text： = ' dbo.TB_xxxx SELECT * FROM ' ; 
    開いた; 
  エンド; 

  qry1.First; 

  edt1.Text： = qry1.Fields [ 0 ]の.text。
  edt2.Text： = qry1.Fields [ 0 ] .Valueの。

  qry1.Fields [ 0 ] .DisplayLabel：= "ちょっと特許' ; 

  edt3.Text： = qry1.Fields [ 0 ] .DisplayText; // 読み取り専用

   edt4.Text： = qry1.Fields [ 0 ] .DisplayLabel; // OK号ヘイ表示名 
   edt5.Text：= QRY1。フィールド[ 0 ] .DisplayName; // 読み取り専用

   edt2.Text： = qry1.Fields [ 0 ] .Valueの; 
   edt2.Text： = qry1.Fields [ 0 ] .FieldName; // OK SBH表示フィールド名の
終わり; 

終わり。