Naja, also kürzer ginge es wohl schon:
Delphi-Quellcode:
function SwapInt32(Value: Integer): LongWord;
register;
asm
BSWAP EAX
end;
function SwapInt16(Value: SmallInt): SmallInt;
register;
asm
XCHG EAX
end;
Ob das schneller ist? Kann sein. Weniger Funktionen ist es leider nicht - das wäre aber auch mit zusätzlichem Aufwand verbunden...
(Code ungetestet, ich kenne mich nicht besonders mit Assembler aus...)