[nerZEROn]

Добрый день.
Подскажите, как подсчитать количество отмеченных строк в CheckListBox? Необходимо сделать подсчет и вывести это значение в Gauge.MaxValue (компонент из AlphaSkins).

Код такой:

Код:

for i := 0 to MainForm.asCheckListBox.Items.Count - 1 do
        begin
         if MainForm.asCheckListBox.Checked[i] then
          begin
            Ident := sl[i];
            Value := InstallINI.ReadString(PChar('All'), Ident, '');
            ...
            MainForm.asInstGauge.MaxValue := ?;
            ...
          if CreateProcess(PChar(ExePath), PChar(CmdLine), nil, nil, False, 0, nil, nil, SI, PI) then
            try
             while True do
              begin
               if (WaitForSingleObject(PI.hProcess, 100) <> WAIT_TIMEOUT) then Break;
              end;
            finally             
              MainForm.asInstGauge.Progress := ?;
              Application.ProcessMessages;
              CloseHandle(PI.hProcess);
              CloseHandle(PI.hThread);
            end;
           end;
        end;

То есть с каждым выполненным CreateProcess, Gauge по задумке должен отображать ход выполнения.

[poli-smen]

Сообщение от nerZEROn

Добрый день.
Подскажите, как подсчитать количество отмеченных строк в CheckListBox? Необходимо сделать подсчет и вывести это значение в Gauge.MaxValue (компонент из AlphaSkins).

Количество помеченных элементов вычисляй самостоятельно в цикле.

Вот пример функции подсчитывающей количество помеченных элементов в указанном CheckListBox:

Код:

function CalcChecked(CheckListBox: TCheckListBox): Integer;
var
  i: Integer;
begin
  Result := 0;
  for i := 0 to CheckListBox.Count - 1 do
    if CheckListBox.Checked[i] then Inc(Result);
end;

Тогда у себя в коде можешь сделать так:

Код:

asInstGauge.MaxValue := CalcChecked(asCheckListBox);

Сообщение от nerZEROn

То есть с каждым выполненным CreateProcess, Gauge по задумке должен отображать ход выполнения.

С чего это сделан такой вывод?

[nerZEROn]

Сообщение от poli-smen

С чего это сделан такой вывод?

С того, что после каждого этапа цикла CreateProcess мой Gauge увеличивается на 1 Gauge.MaxValue нужно для того, чтобы зафиксировать максимальное кол-во шагов цикла. По завершению цикла, Gauge показывает 100%.

У меня получилось сделать самому, но через занесение кол-ва отмеченных строк CheckListBox в Memo. А количество линий Memo присваивал TStrings. Но это не так красиво и удобно, как через функцию. Так что большое спасибо!