Delphi BDE Double类型字段改为String类型

Question

我正在使用 BDE TTable，其中某些字段最初是 ftDouble。 因为要存储的输入有时是非数字的，所以我现在将字段类型更改为 ftString。

该字段的输入是通过 TEdit 完成的。当代码到达：

   with tblDM do
   begin
      Edit;
      FieldByName('s01_amt').AsString := Edit1.Text;
      Post;
   end;

如果输入不是数字，我会收到 BDE 错误：

“a”不是有效的浮点数 字段“s01_amt”的值。

Answer 1

该错误消息仅由 TFloatField 类型的字段创建，仅当 TFieldDef 的 DataType 值为 ftFloat< 时才会创建该错误消息/代码>。仔细检查您是否已像您认为的那样更改了属性。

字段定义可以从字段本身填充。确保您更改了底层数据库架构，而不仅仅是 TTable 组件。

Answer 2

我只是将其转换为浮点数：

var
dFloat : double;

begin
  try dFloat := strToFloat(edit1.txt); except dFloat := 0; end;

  edit;
  FieldByName('s01_amt').AsFloat := dFloat;
  post;

end;

Answer 3

当您更改字段类型时，您是否也更改了架构中数据库的字段（xBASE/Clipper 中的结构）？如果不是，则您正在尝试将非数字值分配给数字类型字段，这就是导致异常的原因。

如果您仍在使用 DBF 样式文件，则需要将数据库中的字段类型从 NUMERIC 更改为 CHARACTER。您可以使用数据库桌面 IIRC 中的 SQL 以及 BDE 的 DBASE 支持来完成此操作。

仅将 TField 的类型从 ftFloat 更改为 ftString 不会自动更改该字段的数据库存储；你必须自己在这两个地方做。