I'm getting Exception Classe EConvertError with message 'Cannot convert type'
This exception is raised from the memdata unit : procedure TData.PutFieldAsVariant
When debugging, Value = 1
Code: Select all
dtInt64:
case VarType(Value) of
{$IFDEF VER6P}
varInt64: begin
i64 := Value;
Marshal.WriteInt64(FieldData, i64);
end;
{$ELSE}
varDecimal:
Int64(FieldData^) := TVarDataD6(Value).VInt64;
{$ENDIF}
else
raise EConvertError.Create(SCannotConvertType);
end;