论坛风格切换切换到宽版
  • 1765阅读
  • 2回复

请教如何修正这个脚本 [复制链接]

上一主题 下一主题
离线546242502
 

发帖
332
金钱
-3060
威望
-306
只看楼主 倒序阅读 0 发表于: 2015-08-08
用户被禁言,该主题自动屏蔽!
离线gnatix

发帖
7696
金钱
-8279
威望
-828
只看该作者 1 发表于: 2015-08-09
修改一个地方:

procedure Progress();
var
  pct: Extended;
begin
//安装百分比
//ProgressLabel.Caption:=IntToStr((WizardForm.ProgressGauge.Position-WizardForm.ProgressGauge.Min)/((WizardForm.ProgressGauge.Max - WizardForm.ProgressGauge.Min)/101)) + '%';
pct := (WizardForm.ProgressGauge.Position-WizardForm.ProgressGauge.Min)*100/(WizardForm.ProgressGauge.Max - WizardForm.ProgressGauge.Min);
ProgressLabel.Caption:= IntToStr(Round(pct)) + '%';
AddToDetaList;
end;





离线546242502

发帖
332
金钱
-3060
威望
-306
只看该作者 2 发表于: 2015-08-09
用户被禁言,该主题自动屏蔽!