德尔福: Setting OnGetText Event Handler for fields of a dynamic query

Question

我想将自己的过程设置为动态查询中字段的 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值为空!

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

出了什么问题？

谢谢...

Answer 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;