在线急等，高手过来帮个忙！！！

Question

在TADOQuery中，如果field字段是自动出来的，也就是运行前field字段数不确定，但在运行时我要对Field字段用gettext()方法。现在不知道应该在哪实现getText方法。快帮忙想想急坏了

Answer 1

定义一个局部过程
procedure FieldGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
procedure FieldGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
then
  //GetText内容
  Text := Sender.AsString + '000' ;
end;设置:
 ADOQuery1.FieldByName('ssss').OnGetText := FieldGetText;