ProgressBar и Memo

Question

В Memo расположено три строки:

11
22
33

По нажатию на кнопку удаляю первую строку Memo:

Memo1.Lines.delete(0);

Как сделать что бы ProgressBar заполнялся по мере удаления строк из Memo (То есть удалена первая строка ProgressBar изменился, вторая, третья...) ?

Answer 1

При самом первом нажатии установите предел прогресса

if FirstFlag then begin
   ProgressBar.Max := Memo1.Lines.Count;
   ProgressBar.Position := 1;
   FirstFlag := False;
end

При последующих выполняется

else
    ProgressBar.Position := ProgressBar.Position + 1;

А где FirstFlag задать - это уж сами смотрите, какая должна быть логика

БЛОГ НА HUSL

ProgressBar и Memo

Ответы (1 шт):