Как мне приделать, к циклу progressbar?

← →
delphimun (2003-06-13 12:51) [0]

Допустем у меня цикл, скажем такой:
for i := 0 to 10000 do begin
listbox1.items.strings[i] := inttostr(a)+i;
....
end;

Как мне приделать, к нему progressbar, чтобы процент выполнения показывал?

← →
Юрий Зотов © (2003-06-13 12:54) [1]

1. Перед циклом выставить Min = 0, Max = 10000, Position = 0.
2. В цикл добавить:
Position := i;
Application.Processmessages;

← →
Song © (2003-06-13 12:55) [2]

ProgressBar1.Max:=10;
IF i mod 1000 = 0 then ProgressBar1.Progress := ProgressBar1.Progress + 1;

← →
delphimun (2003-06-13 17:07) [3]

А если допустим, что у меня такой код:

a := tfilestream.Create(edit2.Text,fmopenreadwrite); s := strtoint(edit1.Text); s := s*m; MemSize := a.Size; Inc(MemSize); Buf := AllocMem(MemSize); ost := a.Size mod s; num := a.Size div s; listbox1.Items.Add(inttostr(num+1)); listbox1.Items.Add(inttostr(a.Size)); for i := 1 to num do begin b := tfilestream.create(inttostr(i)+".pav",fmcreate); listbox1.Items.Add(inttostr(i)+".pav"); a.Read(buf^,s); b.write(buf^,s); end;
Как мне сюда прицепить progressbar, чтобы он отображал сколько % данных записано из буфера в поток "B"?

← →
VMcL © (2003-06-13 17:20) [4]

>delphimun (13.06.03 17:07)

Разжевать и в рот положить?

← →
delphimun (2003-06-13 18:18) [5]

Сам пол дня провозиля, не получается, даже немогу себе проедставить, как туда этот прогрессбар подключить, а подключить его нужно к строчкам:
a.Read(buf^,s);
b.write(buf^,s);
вроде, а как? Изменя процедуры read и write в модуле чтоли?

← →
Song © (2003-06-14 11:34) [6]

ProgressBar1.Max:=a.Size;
После Write пишешь ProgressBar1.AddProgress(s)
Это если размер потока небольшой. Если большой (больше чем свойство ProgressBar1.Max - оно типа Integer) то сделай либо как сказал я ранее, либо используй TGauge

← →
delphimun (2003-06-14 15:04) [7]

>Song
Большое спасибо , только у prgressbar свойства addprocess нет, оно только у gauge

Зато у него есть свойство Position целого типа, а к целым можно применять операцию сложения "+"

With ProgressBar1 Do Progress:=Progress+s;

Как мне приделать, к циклу progressbar? Найти похожие ветки