Народ! Подскажите, как сделать точное отображение времени выполнения процесса в ProgressBar (например, выполнение какого - нибуть цикла) ?

Поставить его на таймер.

Цитата(Vit @ 16.9.2003, 00:31)

Поставить его на таймер.

Я так делал, при копировании файла пытался определить примерное время, но так и не получилось .... в основном были не точные показания времени

Если при выполнении цикла, то простенькой формулой:

Код

for i:=0 to 65535 do ProgresBar.Position:=Round((i/65535)*100);

TTimer - достаточно ненадёжная штука, особенно при значениях меньше 1000 при операциях, загружающих процессор в том же потоке. как вариант - можно вынести отработку таймера в отдельный поток с высоким приоритетом и в обработчике отслеживать, например, свойство Position у TFileStream. но вообще, что касается копирования файлов, самый простой вариант - это в цикле читать по частям (ReadBuffer, WriteBuffer) и в том же цикле выводить прогресс копирования. ана таймер - забить вообще.

создай переменную, например dd, дальше
в событии таймера с интервалом 1000:

Var
dd: Integer=30;

dd:=dd-1;
pb3.UserValue:=dd; //pb3 - собственно процессбар
Form1.Caption:='Осталось '+IntToStr(dd)+ ' сек.';
if dd=0 then begin
timer1.Enabled:=False;
Close;
end;//if

у меня все работает, но у меня, правда, dd - глобальная переменная

2 dsergey: для того, чтобы сабж работал, тебе нужно заранее знать, сколько времени займёт копирование файла. а это зависит от массы факторов и корректно это значение отследить невозможно. единственный вариант - считать пропорцией, т.е. в обработчике смотрим, сколько времени прошло и сколько за это время было скопировано, вычисляем текущую скорость копирования, и делим на неё то, что осталось. т.е. по мере работы мы всё время уточняем скорость и оставшееся время. а твой вариант годен только для процессов, время работы которых известно заранее с более/менее реальной точностью.

а если на процессбар вешать не время, кол-во байтов? я бы так и сделал, ведь размер копируемого файла можно узнать до копирования

тогда проще, конечно. просто было сказано "время выполнения процесса", и я зациклился на измерении времени до конца операции но даже в таком случае OnTimer работает слишком неравномерно. для копирвоания я бы сразу вычислял некую дельту, (d := FileSize div 100), и потом в цикле (for i := 0 to d do...) копировал бы файл кусками (ReadBuffer, WriteBuffer) и одновременно делал бы ProgressBar1.Position := ... + 1; ProgressBar1.Update. вообще без фсяких таймеров.