Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Datentype Array of Byte und Cardinal
5. Apr 2011, 09:37
Einen hab ich noch
Delphi-Quellcode:
function Swap(Value: Cardinal): Cardinal;
asm
BSWAP EAX
end;
procedure TForm1.Button1Click(Sender: TObject);
var
c:Cardinal;
begin
c := $AABBCCDD;
c := Swap(c);
Showmessage(IntToHex(c,8))
end;
Thomas Wassermann H₂♂ Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
|