[FreeUser]

Здравствуйте.
Добрался до программы.Опять.
Ну вобщем обрабатывает она у меня мои 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;

А как сделать это */поделить на* ?

[:S.p.a.m.]

Ну просто так и дели, а если выдает ошибку то нужно округлить, либо делить сразу Div'ом

[FreeUser]

Просто так и дели..А я не умею. Как делить то? Я деление найти ни где не могу.

[:S.p.a.m.]

я же говорю либо Div либо "/".

[FreeUser]

Unit4.pas(162): Incompatible types: 'Integer' and 'Extended'

Есть Etxended в integer? А то я поискал - пишет нет.

[Drozh]

А почему нельзя до цикла занчению ProgressBar1.Max присвоить orm1.OpenDialog1.Files.Count а в цикле инкриминтировать на еденицу

[FreeUser]

А потому, что я баран. У меня stepBar - integer. Ну какой он Integer если 100\число файлов? А если их 55? 100\55 и integer..Дошло)

[Drozh]

Нет не то... Ведь можно сделать проще

Код:

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;

[FreeUser]

Спасибо!!!