absolute Sender

[Aphton]

Absolute hat einen ganz praktischen Nutzen:

Delphi-Quellcode:

procedure foo(rgb: DWord);
var
  rgb_arr: Array[0..3] of Byte absolute rgb;
begin
  showmessage('Rotanteil : ' + IntToStr(rgb_arr[0]));
  showmessage('Grünanteil: ' + IntToStr(rgb_arr[1]));
  showmessage('Blauanteil: ' + IntToStr(rgb_arr[2]));
end;