怎么对于一个十六进制数按位取反

如何对于一个十六进制数按位取反
对于一个十六进制数怎么进行按位取反呀，在线等

[解决办法]
不必那么复杂。

用Not运算即可：

var
I, J : word;
begin
I := $96E5;// 比如由16进制字串转来：I := StrToInt( '$ '+ '96E5 ');
J := Not I;
ShowMessage(Format( '%x ',[J]));//看一下
end;