在该字段的GetTetx事件中转换显示格式:
1、把二进制转化为十进制;
2、把十进制数转化为*小时*分*秒 型的字符串这样以后,在所有数据敏感控件(包括TDBText等、TDBGrid和报表控件中已按照第2步的结果显示)。如果这个字段需要修改,请写SetText事件。
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
             毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Desire := '加不加分随你';
—————————————————————————————————