Delphi : Setting OnGetText Event Handler for fields of a dynamic query

Question

I want to set my own procedure to OnGetText event of fields in a dynamic query

My procedure is like this :

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

  ...

end;

• "...Captions" are String array constants

I set the event handler in OnAfterOpen event of ADOQuery :

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

But after opening ADOQuery , there is no Text to display , it looks like the Text value is empty !

It seems it doesn't matter what my procedure do , because when I set an empty procedure ( with no code ) , no text displayed too

what goes wrong ?

thanks ...

Answer 1

Try this:

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;