|
#1
|
|||
|
|||
ПрогресБар
Здравствуйте.
Добрался до программы.Опять. Ну вобщем обрабатывает она у меня мои txt. И решил добавить Прогресбар.Помогите с ним, пожалуйста. ProgressBar1.Position:=0; if form1.OpenDialog1.Execute=true then for fCounter:=0 to form1.OpenDialog1.Files.Count-1 do stepBar:=100[делений] */поделить на* form1.OpenDialog1.Files.Count [количество файлов];//узнали шаг; ProgressBar1.Position:=ProgressBar1.Position+stepB ar; А как сделать это */поделить на* ? |
#2
|
||||
|
||||
Ну просто так и дели, а если выдает ошибку то нужно округлить, либо делить сразу Div'ом
|
#3
|
|||
|
|||
Просто так и дели..А я не умею. Как делить то? Я деление найти ни где не могу.
|
#4
|
||||
|
||||
я же говорю либо Div либо "/".
|
#5
|
|||
|
|||
Unit4.pas(162): Incompatible types: 'Integer' and 'Extended'
Есть Etxended в integer? А то я поискал - пишет нет. |
#6
|
|||
|
|||
А почему нельзя до цикла занчению ProgressBar1.Max присвоить orm1.OpenDialog1.Files.Count а в цикле инкриминтировать на еденицу
|
#7
|
|||
|
|||
А потому, что я баран. У меня stepBar - integer. Ну какой он Integer если 100\число файлов? А если их 55? 100\55 и integer..Дошло)
|
#8
|
|||
|
|||
Нет не то... Ведь можно сделать проще
Код:
if Form1.OpenDialog1.Execute then begin ProgressBar1.Position := 0; ProgressBar1.Max := Form1.OpenDialog1.Files.Count - 1; for fCounter := 0 to Form1.OpenDialog1.Files.Count - 1 do ProgressBar1.Position:=ProgressBar1.Position + 1; ... end; |
#9
|
|||
|
|||
Спасибо!!!
|