使用Indy组件下载文件时，下载百分比标签始终显示0的解决方法

核心原因 #

你代码中使用了Delphi的整数除法运算符div，当pbİndirmeGöstergesi.Position小于pbİndirmeGöstergesi.Max时，两者相除的结果会被取整为0，后续乘以100后仍然是0，导致标签一直显示0。

解决方案 #

将整数除法改为浮点除法，用/运算符替代div，这样能得到精确的小数结果，再计算百分比即可。

修改后的代码示例 #

直接修正百分比计算代码：

lblİndirmeYüzdesi.Caption := IntToStr(Round((pbİndirmeGöstergesi.Position / pbİndirmeGöstergesi.Max) * 100));

更严谨的版本（避免除零错误） #

如果存在文件总大小为0的情况，需先判断避免除零异常：

if pbİndirmeGöstergesi.Max > 0 then
  lblİndirmeYüzdesi.Caption := IntToStr(Round((pbİndirmeGöstergesi.Position / pbİndirmeGöstergesi.Max) * 100))
else
  lblİndirmeYüzdesi.Caption := '0';

可选优化：直接使用原始值计算 #

你也可以跳过ProgressBar的属性，直接用AWorkCount和文件总大小intSunucudakiDosyanınBoyutu计算，减少中间依赖：

if intSunucudakiDosyanınBoyutu > 0 then
  lblİndirmeYüzdesi.Caption := IntToStr(Round((AWorkCount / intSunucudakiDosyanınBoyutu) * 100))
else
  lblİndirmeYüzdesi.Caption := '0';

内容的提问来源于stack exchange，提问作者user10825637