Dword -> word ?

[p80286]

wie wäre es hiermit:

Delphi-Quellcode:

type
  tmr =  packed record
    w1 : word;
    w0 : word;
  end;
var
  a : cardinal;
  b: integer;

begin
  a:=$12345678 ;
  memo1.Lines.Add(inttohex(tmr(a).w1,4));
  memo1.Lines.Add(inttohex(tmr(a).w0,4));
  b:=$12345678;
  memo1.Lines.Add(inttohex(tmr(b).w1,4));
  memo1.Lines.Add(inttohex(tmr(b).w0,4));
end;

Gruß
K-H

Edith:
das gleiche in Grün