如果使用包含备注字段的表开发数据库应用程序，您会注意到，默认情况下，TDBGrid组件不会在DBGrid单元格中显示备注字段的内容。

本文提供了如何解决这个TMemoField问题的想法（还有一些技巧）。。。

特默菲尔德

备注字段用于表示长文本或文本与数字的组合。使用Delphi构建数据库应用程序时，TMemoField对象用于表示数据集中的备注字段。TMemoField封装了包含文本数据或任意长度的字段的基本行为。在大多数数据库中，备注字段的大小受数据库大小的限制。

虽然您可以在TDBMemo组件中显示备注字段的内容，但根据设计，TDBGrid将仅为此类字段的内容显示“（备注）”。

为了在适当的DBGrid单元格中实际显示一些文本（来自MEMO字段），您只需要添加一行简单的代码。。。

在下一个讨论中，假设您有一个名为“TestTable”的数据库表，其中至少有一个名为“Data”的备注字段。

ongettext

要在DBGrid中显示备注字段的内容，需要在字段的OnGetText事件中附加一行简单的代码。创建OnGetText事件处理程序的最简单方法是在设计时使用字段编辑器为备注字段创建持久字段组件：

1. 将TDataset子体组件（TTable、TQuery、TADOTable、TADOQuery…）连接到“TestTable”数据库表。
2. 双击数据集组件以打开字段编辑器
3. 将备注字段添加到持久字段列表中
4. 在字段编辑器中选择备注字段
5. 激活对象检查器中的“事件”选项卡
6. 双击OnGetText事件以创建事件处理程序

添加下一行代码（以下斜体）：

注意：数据集对象称为“DBTable”，备注字段称为“DATA”，因此，默认情况下，连接到备注数据库字段的TMemoField称为“DBTableData”。通过将DBTableData.AsString指定给OnGetText事件的文本参数，我们告诉Delphi在DBGrid单元格中显示MEMO字段中的所有文本。您还可以将MEMO字段的DisplayWidth调整为更合适的值。

注意：由于备注字段可能相当大，因此最好只显示其中的一部分。在上述代码中，仅显示前50个字符。

单独编辑

默认情况下，TDBGrid不允许编辑备注字段。如果要启用“就地”编辑，可以添加一些代码，以便对显示单独窗口的用户操作作出反应，该窗口允许使用TMemo组件进行编辑。为简单起见，当按下DBGrid中“打开”备注字段时，我们将打开一个编辑窗口。让我们使用DBGrid组件的按键事件：

注1：“TMemoEditorForm”是只包含一个组件的辅助表单：“DBMemoEditor”（TMemo）。注2：“TMemoEditorForm”已从“项目选项”对话框窗口的“自动创建表单”列表中删除。

让我们看看DBGrid1的KeyDown事件处理程序中发生了什么：

1. 当用户按下ENTER键时（我们将键参数与VK_返回虚拟键代码进行比较）[key=VK_返回]，
2. 如果DBGrid中当前选定的字段是我们的备注字段（DBGrid1.SelectedField=DBTableData），
3. 我们创建TMemoEditorForm[TMemoEditorForm.create（nil）]，
4. 将备注字段的值发送到TMemo组件[DBMemoEditor.Text:=DBTableData.AsString]，
5. 以模式显示表单[ShowModal]，
6. 当用户完成编辑并关闭表单时，我们需要将数据集置于编辑模式[DBTable.Edit]，
7. 为了能够将编辑后的值分配回备注字段[DBTableData.AsString:=DBMemoEditor.Text]。

注意：如果您正在寻找更多与TDBGrid相关的文章和使用技巧，请务必访问“TDBGrid to the MAX”技巧收藏。