Weitere Möglichkeiten, um auf Teile einer Integer zuzugreifen:
Delphi-Quellcode:
var
i, j: integer;
b: byte;
pb: PByte;
begin
b := LoByte(HiWord(i));
for j := 0 to 3 do
b := i shr (j * 8) and $FF;
pb := @i;
for j := 0 to 3 do begin
b := pb^;
Inc(pb);
end;
end;
Grüße vom marabu