^LongWord
type
Type1 = array [0..43] of longword;
Type2 = array [0..15] of byte;
...
implementation
type
PLongWord = ^LongWord;
...
procedure Procedure1(const K: Type2; var EK: Type1); overload;
var ...
begin
...
EK[0] := PLongWord(@K[0])^;
end;
Пример1:
K = 49 50 51 52 53 54 55 56 57 48 49 50 51 52 53 54
K[0] = 49
@K[0] = 0012F5D8
EK[0] = 875770417
Пример2:
K = 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49
K[0] = 49
@K[0] = 0012F5D8
EK[0] = 825307441
Кто знает, объясните, пожалуйста, в чем фокус?
Откуда берется эта разница?
|