Int64-Variablen im Verhältnis auf Integer-Variablen laden

[thkerkmann]

Hi

in SysUtils findet man den

Delphi-Quellcode:

  Int64Rec = packed record
    case Integer of
      0: (Lo, Hi: Cardinal);
      1: (Cardinals: array [0..1] of Cardinal);
      2: (Words: array [0..3] of Word);
      3: (Bytes: array [0..7] of Byte);
  end;

und du könntest dir dann den Hi Cardinal herauspicken für PB_Max und PB_Pos.

Also

Delphi-Quellcode:

  intmax = Int64Rec(PB_max).Cardinals[1];
  intpos = Int64Rec(PB_pos).Cardinals[1];

Dann wird nix gerechnet.

Gruss