在Delphi中如何实现补码运算?(急!) 比如我要求一个十六进制D3 A1 58的补码,该怎样编码呢?请高手们赐教。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var Value: Integer;begin Value := StrToDef('$D3A158');//转换为整数,如果整数长度不够可以用int64 Value := - Value;//求整数补码。 Value := Value and $FFFFFF;//截断到24位 Result := IntToHex(Value, 6);end; delphi能异步执行存储过程吗? 请问谁知道西安哪家公司销售支票打印软件 用StrToDate把字符串变时间的问题 用wise打包安装后开始菜单中没有程序,怎样设置才能出现?? 各位帮帮忙,高分收购串口通讯的源代码!!!!(急) 装了宽带的困扰!!! 触发器只响应部分更新的数据 200分,求一段代码,要求将指定目录下的文件改名,如program23.dat 改名为11.program23.uml 如何在dbgrid里用编程进行多条数据记录的高亮度显示 edit和memo控件的居中问题 使用ADOQUERY检索数据时,发生存储器不足提示,我的CODE真的那么占内存吗? 一个简单的窗口打开问题
Value: Integer;
begin
Value := StrToDef('$D3A158');//转换为整数,如果整数长度不够可以用int64
Value := - Value;//求整数补码。
Value := Value and $FFFFFF;//截断到24位
Result := IntToHex(Value, 6);
end;