delphi 对int64计算的一种处理方式

本文整理自网络，侵删。

 最近写刻录程序时用到了int64计算比例的功能，integer的范围是4G，而普通DVD光盘容量就是4.3G，直接计算是通不过编译的
因此用了一种取巧的方法，把两个数据右移16位，然后计算比例，当数据小于2的16次方（64k，接近VCD容量的万分之一）时，当作最小进度（如1%）处理
代码如下：
function GetProgress: Integer;var  nReadSize, nCapibility: Integer;begin    nReadSize := Integer(FWriteSize shr 16);    nCapibility := Integer(FCapibility shr 16 );    Result := Round( (nReadSize / nCapibility) * 100 );    if (Result = 0) and (nReadSize > 0) then      Result := 1;end;
https://blog.csdn.net/youthon/article/details/7963161 

相关阅读 >>

Delphi firemonkey处理图形的方式与vcl处理图形的方式大不相同

Delphi编程之显示桌面分辨率

Delphi获取当前计算机所有盘符

Delphi 加载图像并压缩，旋转图像角度

Delphi real控件 rm格式的播放器

Delphi的unicode与gb2312转转换,汉字unicode转gb2312

Delphi中实现调整图像的色阶的算法

Delphi winsoft comport for android usb

Delphi 删除字符串中首个字符

Delphi 掌控pagecontrol中的右上方的左右箭头事件

更多相关阅读请进入《Delphi》频道 >>