delphi 进度条的问题 要做上千次循环 求算法

Question

gauge1.min value :=0;
gauge1.max value :=100;for i:=0 to sum do //sum 动态获取  本次 取值 1600
   begin
      gauge1.progress:=?????;//这个地方要怎么计算  ?  (i+1)*100/sum  ？可是编译不了啊
   end;

Answer 1

 如果希望结果是整数则   
  a,b:Integer;   
  c:=a   div   b;   
    
  如果希望结果是浮点数则   
  a,b:Integer;   
  c:=a   /   b;欢迎转载，但请保留出处，本文章转自[华软网] 原文链接：http://www.huarw.com/program/bbs/Delphi2/200208/1085773.html

Answer 2

用'/'  左边gauge1.progress为整形 右边为浮点型  字符类型不匹配