ungewöhliches record

[SirThornberry]

ganz einfach

Delphi-Quellcode:

type
  Tmyrecord = record
    bytea: Byte;
    byteb: Byte;
    bytec: Byte;
    byted: Byte;
  end;
[...]
var a: Integer;
    b: TMyRecord;
    c: ^TMyRecord;
begin
  a := 500;
  b := TMyRecord(a); //und schon kannst du über b.bytea auf das erste byte zugreifen (kopiezugriff)
  //weitere möglichkeit
  c := @a;  //und auch jetzt kannst du über c.bytea auf das erste byte zugreifen (direktzugriff)
end;