string - 鉴于 ShortString 已被弃用，限制字符串长度的最佳方法是什么

Question

像这样的记录并不罕见:

TAddress = record
  Address: string[50];
  City   : string[20];
  State  : string[2];
  ZIP    : string[5];
end;

最好对字符串大小进行硬编码，以确保字符串的大小不会超过分配给数据的数据库字段大小。

但是，鉴于 ShortString 类型已被弃用，Delphi 开发人员正在采取哪些措施来“解决”这个问题？将记录字段声明为 string 可以完成工作，但不能保护数据不超过适当的长度。

这里最好的解决方案是什么？

Answer 1

如果我必须防止数据超过正确的长度，我会让数据库代码尽可能地处理它。对字段设置大小限制，并在数据绑定(bind)控件中向用户显示数据。绑定(bind)到字符串字段的 TDBEdit 将正确强制执行长度限制。设置它以便直接从数据集填充记录，并且它始终具有正确的长度。

那么您需要担心的是数据从不属于您的 UI 的外部源进入记录。为此，请使用相同的过程。让导入代码将数据插入数据集中，并让其长度约束为您进行验证。如果引发异常，则拒绝导入。如果没有，那么您就有了一个有效的数据集行，可用于填充记录。