Delphi在DBGrid组件中显示和编辑MEMO字段参照.pdfVIP

Delphi 在 DBGrid 组件中显示和编辑 MEMO字段 时间 : 2007-10-15 天极 小刀轻舞 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; TDataset 对象的名字是“ DBTable”，MEMO字段的名字是“ Data”，因此缺省情 况下连接到 MEMO字段的 TMEMOField名字是“ DBTableData”。我们在代码中告 诉 DBGrid 将 MEMO字段显示成文本方式， 就是把实际的内容显示出来。 这里有一 个值得注意的地方， 因为 MEMO字段可以容纳比较多的文本， 在 DBGrid 中全部显 示出来的话， DBGrid 就会被撑得很大，所以我们做了限制，只是把 MEMO中的前 50 个字符显示出来。（如图 2） 显示的工作完成之后， 我们还想对显示出来的文本进行编辑， 这在缺省状态下是 不可以实现的，我们准备另建一个窗体，在上面放置一个 DBMemo组件，用它来 对文本进行编辑， 思考到这里还有一个需要解决的问题， 如何来