Delphi：为动态查询的字段设置OnGetText事件处理程序

发布时间：2020-12-15 04:14:11 所属栏目：大数据来源：网络整理

导读：我想在动态查询中将自己的过程设置为OnGetText字段事件我的程序是这样的： procedure TMainFrm.MyFieldGetText(Sender: TField; var Text: String; DisplayText: Boolean);begin ...end; “… Captions”是String数组常量我在ADOQuery的OnAfterOpen事件中

我想在动态查询中将自己的过程设置为OnGetText字段事件

我的程序是这样的：

procedure TMainFrm.MyFieldGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin

  ...

end;

>“… Captions”是String数组常量

我在ADOQuery的OnAfterOpen事件中设置事件处理程序：

procedure TImportFrm.ADOQueryAfterOpen(DataSet: TDataSet);
var
 I : Integer;
begin
 for I := 0 to ADOQuery.FieldCount - 1 do
  ADOQuery.Fields[I].OnGetText := MainFrm.MyFieldGetText;
end;

但是在打开ADOQuery之后,没有要显示的Text,看起来Text值为空！

似乎我的程序做什么并不重要,因为当我设置一个空程序(没有代码)时,也没有显示任何文本

出了什么问题？

谢谢 …

解决方法

试试这个：

procedure TMainFrm.MyFieldGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  if Sender.FieldName = 'XX' then
   begin
     Text := .... String(Sender.Value);// ( or Text := Sender.AsString);
   end;
  if Sender.FieldName = 'YY' then
   begin
     Text := .... String(Sender.Value);// ( or Text := Sender.AsString);
   end;
  ...

end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!