Delphi之所以能在.NET与JAVA“两座大山”重压之下，至今仍被广大编程爱好者喜爱、支持，究其原因，除了VCL框架设计精妙之外，强大的数据库程序开发能力也是其长盛不衰的关键因素之一。说到数据库开发不能不提到DELPHI中自带的功能强劲的数据感知组件，这些组件中最为常用的当属DBGrid组件，这个组件提供了二维表的数据显示方式，一次提供的信息量大、结构鲜明、一目了然。虽然它有这么多优点，然而“没有银弹”（其大意为没有一种形式可以解决所有的问题）这句IT界中人所共知的箴言又开始应验了，它有不少缺点，其中一个就是：当你开发一个数据库应用程序时，如果所用的数据表中带有MEMO（备注类型）的字段，你会注意到，在DBGrid的缺省显示方式下，这种类型的字段将显示成“（MEMO）”的形式（如图1所示）。MEMO字段类型中数据表中的主要功能是存放相对比较大数量的文本或是文本与数字的结合，在大多数数据库中这种类型的数据有规定的数量上的限定。

　　只能显示“（MEMO）”这种形式显然不能够满足用户的需要，为了能够使得数据被实际显示出来，我们需要写一些代码，对DBGrid做一点功能上的增强。首先，我们要先在数据库中建立一张表，命名为TestTable，这张表中至少要有一个MEMO类型的字段，把它命名为Data。然后我们来给字段的OnGetText事件写一段代码实现上面的需求。操作步骤如下：

　　1． 把你的TDataset组件与刚才新建的数据库中的TestTable表相连接。

　　2． 双击TDataset组件来打开字段编辑器（Fields editor）。

　　3． 添加MEMO字段Data.

　　4． 选中该字段，在对象检查器中（Object Inspector）双击OnGetText事件建立事件句柄。

　　编写代码如下：

　　procedure TForm1.DBTableDataGetText(Sender: TField;
var Text: String;
DisplayText: Boolean);
begin
Text := Copy(DBTableData.AsString, 1, 50);
end;