Delphi 10 и Delphi 7 совместимость

← →
Kav (2007-02-26 11:15) [0]

Вчера установил Delphi 10, попробовал откомпилировать свои исходники, и Delphi 10 выдает вот такое чудо ошибка мол (в Delphi 7 там ошибки не было!):
hRet := DIKeyboard.SetDataFormat(c_dfDIKeyboard);//вот на это ругался

вот кусоче кода из DirectInput8
const
c_dfDIKeyboard : TDIDataFormat = (
dwSize : Sizeof(c_dfDIKeyboard);
dwObjSize : Sizeof(TDIObjectDataFormat);
dwFlags : DIDF_RELAXIS;
dwDataSize : Sizeof(TDIKeyboardState);
dwNumObjs : High(_c_dfDIKeyboard_Objects) + 1;
rgodf : @_c_dfDIKeyboard_Objects[Low(_c_dfDIKeyboard_Objects)]
);
а вот тут я сменил var на const и все заработало
function SetDataFormat(var lpdf : TDIDataFormat) : HResult; stdcall;

может я чего не понимаю (может не надо править исходники) и эту совместимость можно настроить ?

← →
tesseract © (2007-02-27 11:19) [1]

А на что ругался то?

← →
DVM © (2007-02-28 12:59) [2]

> эту совместимость можно настроить ?

можно

← →
jack128 © (2007-02-28 17:26) [3]

tesseract © (27.02.07 11:19) [1]
да на assignable typed consts наверника.. Вообще конечно непонятно, что нужно было курить, чтоб придумать такое. Константы, которым в ран тайм можно присваивать значения...

← →
Par (2007-03-01 15:39) [4]

вообще-то Delphi 10 по сравнению с Delphi 7 как-то сыроват, я обратно перешел на Delphi 7 :)

> вообще-то Delphi 10 по сравнению с Delphi 7 как-то сыроват,
> я обратно перешел на Delphi 7 :)

Ну давай давай... :)

> Вообще конечно непонятно, что нужно было курить, чтоб придумать
> такое. Константы, которым в ран тайм можно присваивать
> значения...

Ну скорей всего константа идёт по адресу. А всё, что под адресом, мона менять. Хотя не выяснял.

Delphi 10 и Delphi 7 совместимость Найти похожие ветки