本文介绍了一种用于从数据库字段中获取值的函数实现方法。该函数检查新值是否存在，如果存在则返回新值；如果不存在，则返回旧值。这种方法确保了在没有更新的情况下不会丢失原始数据。
function GetFieldValue(Fld: TField): Variant;
begin
if not VarIsEmpty(Fld.NewValue) then
Result := Fld.NewValue
else
Result := Fld.OldValue;
end;
begin
if not VarIsEmpty(Fld.NewValue) then
Result := Fld.NewValue
else
Result := Fld.OldValue;
end;
扫一扫
1052
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
