数据库的翻译问题（OnGetText）急~~~在线等待！！

Question

我知道如何写ongettext，但是在dataset中的afteropen中怎么样来调用？？

Answer 1

那我怎么用，在dataset的afteropen中！！

Answer 2

procedure TForm1.ADODataSet1idGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  Text :='Ok'+ Sender.asString;end;

Answer 3

liangjinliang()  dataset中是哪个属性，我怎么没有找到？？？

Answer 4

右键-addall-选择要get的字段-F11-选择事件ongettext

Answer 5

但是如果我的字段是动态添加的那我该怎么办？？
我好象记得dataset的有一个事件，但是忘了，……

Answer 6

zt:给相关字段加一个自定义的OnGetText事件（在Form的定义部分）：
private
  procedure NumToText(Sender: TField; var Text: String; DisplayText: Boolean);
在ADOTable打开时关联该事件：
procedure TForm1.ADOTable1AfterOpen(DataSet: TDataSet);
begin
  ADOTable1.FieldByName('floatfield').OnGetText := NumToText;
end;