如何将TBlobField OldValue与Value进行比较

Question

在Delphi 2010中，

if Field.OldValue <> Field.Value then
...

提出例外：

  

引发异常类   带有消息的EVariantTypeCastError   '无法转换类型的变体   （数组字节）到类型（整数）'。

如何知道TBlobField值是否已更改？

Answer 1

我用

解决了这个问题

if Field is TBlobField then
  Result := TBlobField(Field).Modified

Answer 2

代码：

if Field is TBlobField then
  Result := TBlobField(Field).Modified

允许您检测字段是否已更改，但仍然不允许您获取oldValue，如果您需要检测更改的内容而不是更改了某些内容。