怎样让DBEdit显示access的备注字段呢?

默认都是显示memo,怎样通过代码设置呢?


ADOQuery1.FieldByName('address')

我这是动态字段的 所以不能在字段编辑器里面设置

Delphi(Pascal) code

  private
    procedure Getaddress(Sender: TField; var Text: String;DisplayText: Boolean);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Getaddress(Sender: TField; var Text: String;DisplayText: Boolean);
begin
  Text:=Sender.AsString;
end;

procedure TForm1.ADOQuery1AfterOpen(DataSet: TDataSet);
begin
  ADOQuery1.FieldByName('address').OnGetText:=Getaddress;
end;