equivalent to lines lines 1720-1733 of dbf.pas
if not lSrcField.IsNull then
begin
if lSrcField.DataType = ftDateTime then
begin
if FCopyDateTimeAsString then
begin
lDestField.AsString := lSrcField.AsString;
if Assigned(FOnCopyDateTimeAsString) then
FOnCopyDateTimeAsString(Self, lDestField, lSrcField)
end else
lDestField.AsDateTime := lSrcField.AsDateTime;
end
else begin
if lSrcField.DataType = ftMemo then begin // <-- begin of patch
try
lDestField.Assign(lSrcField);
except
// maybe log a message, a counter for dropped data or something
// identifying the damage record
end
end
else
lDestField.Assign(lSrcField);
end; // <-- end of patch