Silence EOleError when checking field value for NULL: "Multiple-step operation generated errors. Check each status value.". Closes #496

This commit is contained in:
Ansgar Becker
2019-02-10 13:09:16 +01:00
parent 768bc001cb
commit 074f61c318

View File

@ -6468,8 +6468,15 @@ begin
Result := False Result := False
else if FEditingPrepared and Assigned(FCurrentUpdateRow) then else if FEditingPrepared and Assigned(FCurrentUpdateRow) then
Result := FCurrentUpdateRow[Column].NewIsNull Result := FCurrentUpdateRow[Column].NewIsNull
else else begin
try
Result := FCurrentResults.Fields[Column].IsNull; Result := FCurrentResults.Fields[Column].IsNull;
except
// Silence error: "Multiple-step operation generated errors. Check each status value."
// @see #496
on E:EOleException do;
end;
end;
end; end;