Components for Delphi and C++ Builder.

Попробовал тут портировать старый проект c xe на xe6.

Поля типа TVariantField в TMemtableEh не работают в Delphi XE6
В Delphi XE все нормально.

Создайте новый проект (обычный VCL Form Application), бросьте на форму TDBGridEh, TDataSource и TMemTableEh
Соедините их между собой
Создайте поле типа TMTVariantDataFieldEh в TMemTableEh
Создайте дата сет "Create DataSet"
Выставите свойство TMemTableEh Active=true
Запустите получившееся приложение
Если попытаться редактировать в гриде поле типа TMTVariantDataFieldEh после выхода из режима редактирования, поле очищается.
Обращения из кода к такому полю:
Даже если что то записать в это поле через memtable1.rec.Value[0, DvvValueEh] (так нормально записывается и читается, кстате),
то чтение Memtable1.Fields[0].Value всегда возвращает null (это я думаю корень проблемы)
Если в design time попытаться завести данные в таблицу, через вкладку "Edit Data", что то вводить в это поле, тоже самое, после выхода из режима редактирования - пустое поле,
но при этом все же похоже что то записывается, потому что, если оставить несколько таких строк и запустить проект вываливается куча ошибок.

Все это актуально для версии EhLib 6.3.182 Delphi XE6
В delphi XE все нормально работает.

проблема отсюда:

модуль Data.DB со строки 9728:

function TVariantField.GetAsVariant: Variant;
{$IFNDEF NEXTGEN}
begin
if not GetData(@Result) then
Result := Null;
end;
{$ELSE}
var
Buffer: TValueBuffer;
begin
SetLength(Buffer, SizeOf(Variant));
if not GetData(Buffer) then
Result := Null
else
Move(Buffer[0], Result, SizeOf(Variant));
end;
{$ENDIF !NEXTGEN}

Так как у меня NEXTGEN не определен
вызывается
if not GetData(@Result) then
Result := Null;
т.е. Версия GetData c типом параметра Buffer: Pointer

Далее по цепочке
FDataSet.GetFieldData(Self, Buffer, NativeFormat)

а в модуле MemTableEh переопределение функций описано как:
{$IFDEF EH_LIB_17}
{$IFDEF EH_LIB_18}
function GetFieldData(Field: TField; var Buffer: TValueBuffer): Boolean; override;
function GetFieldData(FieldNo: Integer; var Buffer: TValueBuffer): Boolean; override;
function GetFieldData(Field: TField; var Buffer: TValueBuffer; NativeFormat: Boolean): Boolean; override;
{$ELSE}
function GetFieldData(Field: TField; Buffer: TValueBuffer): Boolean; override;
function GetFieldData(FieldNo: Integer; Buffer: TValueBuffer): Boolean; override;
function GetFieldData(Field: TField; Buffer: TValueBuffer; NativeFormat: Boolean): Boolean; override;
{$ENDIF}
{$ELSE}
function GetFieldData(Field: TField; Buffer: {$IFDEF CIL}TRecordBuffer{$ELSE}Pointer{$ENDIF}): Boolean; override;
function GetFieldData(Field: TField; Buffer: {$IFDEF CIL}TRecordBuffer{$ELSE}Pointer{$ENDIF}; NativeFormat: Boolean): Boolean; override;
function GetFieldData(FieldNo: Integer; Buffer: {$IFDEF CIL}TRecordBuffer{$ELSE}Pointer{$ENDIF}): Boolean; overload; override;
{$ENDIF}

т.е. вариант с параметром Buffer: Pointer будет переопределен только для Ehlib < EH_LIB_17
и как итог эти функции не переопеделены начиная с XE3 и для вариантного поля результат всегда будет null
ну и для всех остальных типов полей которые вызывают именно этот вариант GetFieldData тоже

Добавил к вышеуказанным строкам:
{$IFDEF EH_LIB_17}
function GetFieldData(Field: TField; Buffer: {$IFDEF CIL}TRecordBuffer{$ELSE}Pointer{$ENDIF}): Boolean; override;
function GetFieldData(Field: TField; Buffer: {$IFDEF CIL}TRecordBuffer{$ELSE}Pointer{$ENDIF}; NativeFormat: Boolean): Boolean; override;
function GetFieldData(FieldNo: Integer; Buffer: {$IFDEF CIL}TRecordBuffer{$ELSE}Pointer{$ENDIF}): Boolean; overload; override;
{$ENDIF}
т.е. получилось
{$IFDEF EH_LIB_17}
{$IFDEF EH_LIB_18}
function GetFieldData(Field: TField; var Buffer: TValueBuffer): Boolean; override;
function GetFieldData(FieldNo: Integer; var Buffer: TValueBuffer): Boolean; override;
function GetFieldData(Field: TField; var Buffer: TValueBuffer; NativeFormat: Boolean): Boolean; override;
{$ELSE}
function GetFieldData(Field: TField; Buffer: TValueBuffer): Boolean; override;
function GetFieldData(FieldNo: Integer; Buffer: TValueBuffer): Boolean; override;
function GetFieldData(Field: TField; Buffer: TValueBuffer; NativeFormat: Boolean): Boolean; override;
{$ENDIF}
{$ELSE}
function GetFieldData(Field: TField; Buffer: {$IFDEF CIL}TRecordBuffer{$ELSE}Pointer{$ENDIF}): Boolean; override;
function GetFieldData(Field: TField; Buffer: {$IFDEF CIL}TRecordBuffer{$ELSE}Pointer{$ENDIF}; NativeFormat: Boolean): Boolean; override;
function GetFieldData(FieldNo: Integer; Buffer: {$IFDEF CIL}TRecordBuffer{$ELSE}Pointer{$ENDIF}): Boolean; overload; override;
{$ENDIF}
{$IFDEF EH_LIB_17}
function GetFieldData(Field: TField; Buffer: {$IFDEF CIL}TRecordBuffer{$ELSE}Pointer{$ENDIF}): Boolean; override;
function GetFieldData(Field: TField; Buffer: {$IFDEF CIL}TRecordBuffer{$ELSE}Pointer{$ENDIF}; NativeFormat: Boolean): Boolean; override;
function GetFieldData(FieldNo: Integer; Buffer: {$IFDEF CIL}TRecordBuffer{$ELSE}Pointer{$ENDIF}): Boolean; overload; override;
{$ENDIF}

и соответственно тела для этих функций
Проблема разрешилась
Можно наверное немного изящнее сделать, лень думать)
Исправляйте вобщем

Добрый день.

Исправлено в сборке EhLib 6.3 Build 6.3.184

_________________
Best regards
EhLib support Team