Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Konvertierung von BigEndian-Werten
23. Jul 2012, 14:36
Delphi-Quellcode:
function Swap(Value: Cardinal): Cardinal;
asm
BSWAP EAX
end;
// gibts auch noch:
function SwapUInt64(X: UInt64): UInt64;
asm
mov EDX,dword ptr [X]
mov EAX,dword ptr [X+4]
bswap EDX
bswap EAX
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)
|