Имеется следующий код (под x32 компилируется, Delphi XE7):
const
varTypeMask = $0FFF;
TExtData = packed record
VExtType: LongWord;
Reserved: LongWord;
VPointer: Pointer;
Dummy: LongWord;
end;
function ExtType(const Value: Variant): LongWord;
begin
if TVarData(Value).VType and varTypeMask <> 0 then
Result := TVarData(Value).VType
else
Result := TExtData(Value).VExtType;
end;
При компиляции под x64 имеем ошибку:
[dcc64 Error]: E2089 Invalid typecast
с ссылкой на строку: Result := TExtData(Value).VExtType;
Как исправить?