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;

Answer 2

全部谢谢

问题是我应该提及所有文字的情况，并且应该使用 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;

再次感谢...

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

2 个答案: