Delphi query中对应的OnSetText和onGetText事件 可用于DBGRID PickList显示_delphi onsettext

今天在看代码的时候遇到一个问题，query中的某个字段和在表中显示的不是一个值，我觉得很奇怪，于是找了很久，才知道为什么，原来是query中的OnSetText和onGetText事件在作怪，经过一番学习，我终于知道了这两个事件怎么用。

    OnSetText、onGetText的功能是对字段进行读写转化。

    下面我举一例子吧，有助于大家的理解：

  这是对TQuery的字段id进行读写转化的代码，功能是当数据库字段值为true时显示 '是 '，反之为 '否 '；写入时若选择 '是 '，则写true入数据库反之为false；找这个字段的方法是双击DBGRID的DataSource的DataSet，然后再在弹出的框中击右键，选Add   all   fields...，然后选中你要转化的那个字段，再按F11，选择Events标签页，那里就是OnGetText、OnSetText所在的地方，如下是具体代码：

procedure   TfrmAdmin.aqAdminsysGetText(Sender:   TField;   var   Text:   String; DisplayText:   Boolean); 
begin 
    if   Sender.AsBoolean   =   true   then 
        Text   :=   '是 ' 
    else 
        Text   :=   '否 '; 
end; 
 
procedure   TfrmAdmin.aqAdminsysSetText(Sender:   TField;   const   Text:   String); 
begin 
    if   Text   =   '是 '   then 
        Sender.AsBoolean   :=   true 
    else 
        Sender.AsBoolean   :=   false; 
end;