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

【问题标题】：Delphi : Setting OnGetText Event Handler for fields of a dynamic queryDelphi：为动态查询的字段设置 OnGetText 事件处理程序
【发布时间】：2015-07-29 04:47:48
【问题描述】：

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

我的程序是这样的：

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

  ...

end;

“...Captions”是字符串数组常量

我在 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 值是空的！

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

出了什么问题？

谢谢...

【问题讨论】：

用调试器检查你的处理程序（在第一行设置断点）
谢谢，但正如我所说：“我的程序做什么似乎并不重要，因为当我设置一个空程序（没有代码）时，也没有显示任何文本”
是否要检查 Sender.FieldName 而不是 Sender.Name？
您的概念基本上是正确的。但是您的代码不安全。在AfterOpen 事件处理程序中引用DataSet 和Self，而不是组件字段和全局表单变量。最好写for I := 0 to DataSet.FieldCount - 1 do DataSet.Fields[I].OnGetText := MyFieldGetText;。
你的结论是错误的。如果您为 OnGetText 分配一个过程，则您应对该值负责。因此，如果您分配一个空过程，则不会显示任何内容。所以问题可能出在程序上。

标签： delphi events tadoquery

【解决方案1】：

试试这个：

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;

【讨论】：

那为什么是FieldName 的分支呢？你可以直接写Text := Sender.AsString;。
@TLama 因为 OP 在编辑问题之前就写了这个。

【解决方案2】：

谢谢大家

问题是我应该提到Text的所有情况并且应该使用Sender.value而不是右侧的Text！，我把我的程序改成了这个，问题就解决了：

procedure TMainFrm.MyFieldGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
 if Sender.AsVariant = Null then
  Exit;

 Text := Sender.AsString;

 if MatchStr(Sender.FieldName, BooleanFieldNames) then
  Text := BooleanCaptions[Sender.AsInteger];

 if Sender.FieldName = 'BNStatus' then
  Text := BNStatusCaptions[Sender.AsInteger];

 if MatchStr(Sender.FieldName, ['FStatus', 'LStatus', 'FirstStatus']) then
  Text := FLStatusCaptions[Sender.AsInteger];

 if Sender.FieldName = 'PayType' then
  Text := PayTypeCaptions[Sender.AsInteger];

 if Sender.FieldName = 'BGType' then
  Text := BGTypeCaptions[Sender.AsInteger];

 if Sender.FieldName = 'Updated' then
  Text := UpdatedCaptions[Sender.AsInteger];

 if Sender.FieldName = 'DieUser' then
  Text := DieUserCaptions[Sender.AsInteger];

 if Sender.FieldName = 'LiveUser' then
  Text := LiveUserCaptions[Sender.AsInteger];

 if Sender.FieldName = 'NVStatus' then
  Text := NVStatusCaptions[Sender.AsInteger];

 if Sender.FieldName = 'BSGender' then
  Text := BSGenderCaptions[Sender.AsInteger];

 if Sender.FieldName = 'BSMType' then
  Text := BSMTypeCaptions[Sender.AsInteger];

end;

再次感谢...

【讨论】：

你看到我的回答了吗？
如果这些字段是整数类型，您可以使用Sender.AsInteger 而不是StrToInt(Sender.Value)。
是的，我已经改成了这个，并添加了“if Sender.AsVariant = Null then Exit;”让代码对空值更安全。
要检查该字段是否为NULL，您可以使用Sender.IsNull。