Ein DWORD mit einem Array of Char füllen?

[negaH]

Tja bei all den korrekten Lösungen will ich hier noch eine draufsetzen.

Delphi-Quellcode:

function Swap(Value: DWord): DWord;
asm
   BSWAP  EAX
end;

var
  UserName: array[0..3] of Char;
  ID: DWord; absolute UserName;
begin
  UserName := '1234';
  ShowMessage( IntToHEX(Swap(ID), 8) );
end;

Gruß Hagen