dwtmp1: DWORD;
param_adr: POINTER TO DWORD;
param_adr2: POINTER TO REAL;
Level_difference: REAL;
Buffer: ARRAY[0..255] OF BYTE;
dwtmp1 := Buffer[1] + Buffer[0]*256 + Buffer[3]*256*256 + Buffer[2]*256*256*256;
param_adr := ADR(dwtmp1);
param_adr2 := param_adr;
Level_difference := param_adr2^;
Проверьте порядок байт
Ответить с цитированием
