Цитата FX-DENIS:
|
Санчес причем тут 5 класс то,мне уже под 30 лет)) »
|
А проценты когда учат? А операции над целыми числами еще раньше.
Цитата FX-DENIS:
|
формула я так понял это,его писал Serega,он даже есть в шапке,отображение размера файлов и процентов.Вот кусок кода: »
|
FX-DENIS, формула верна, но где гарантия, что Max всегда равен 100? Если он будет меньше, то это вызовет исключение деления на 0, если больше, то на обеих операциях деления будет небольшая погрешность, ибо дробная часть при делении целых чисел в Inno отбрасывается, поэтому 100% не дождешься, будет писать 99%, а это уже вранье в письменной форме. Формулу можно немного переделать, заменя одну операцию деления на умножение: (Position-Min)*100/(Max - Min). Но рискуем нарваться на переполнение, ибо при первом умножении промежуточный результат может выйти за пределы Integer и до свиданья. Поэтому, если мне нужно получить целочисленные проценты, то использую функцию
MulDiv:
Код:
function MulDiv(nNumber, nNumerator, nDenominator: Integer): Integer; external 'MulDiv@kernel32.dll stdcall';
with WizardForm.ProgressGauge do ProgressLabel.Caption := Format('%d %%', [MulDiv(Position-Min, 100, Max-Min)]);
Если с отображением дробной части, то:
Код:
with WizardForm.ProgressGauge do ProgressLabel.Caption := Format('%n %%', [extended(Position-Min)*100/(Max-Min)]);
А насчет того, что вылазит аж 103%, то это где-то Position в коде принимает значения больше Max.
Цитата FX-DENIS:
|
я не знаю как еще на пальцах объяснить »
|
FX-DENIS, без четкого алгоритма действий на пальцах нет смысла что-то писать на каком-либо языке программирования. ОК, допустим архивы распаковываются на этапе ssInstall, т.е. до основной утановки. Тогда нужно скрыть стандартный прогресс - создать и отобразить интерфейс для freearc - распаковка - удалить/скрыть интерфейс для freearc - показать стандартный прогресс:
Код:
procedure CurStepChanged(CurStep: TSetupStep);
begin
case CurStep of
ssInstall : begin
// тут скрывается стандарный прогрессбар
WizardForm.ProgressGauge.Hide;
// тут создаются конролы для freearc (прогрессбары, проценты, ...)
CreateControls;
// тут идет распаковка
...
// тут удаляются/скрываются контролы для freearc
...
// тут показывается стандарный прогрессбар для основной установки
WizardForm.ProgressGauge.Show;
end;
end;
end;
Цитата dima.dmitrienko.71@fb:
|
но я нуб в этом деле можете помочь? »
|
dima.dmitrienko.71@fb, поставьте курсор на строку выше, потом скроллом наверх пока не увидите слово begin, try или case, подсвеченное красным. Этот блок и нужно закрыть end-ом. Не сможете найти сами, код до проблемной строки в студию.
