Синхронизация Progressbar с потоком

[factually]

Как грамотно синхронизировать Progressbar с потоком? Какие есть способы? Необходимо, чтобы Progressbar загружался в зависимости от времени выполнения потока.
Пробую так:

if sProgressBar1.Position < sProgressBar1.Max then
sProgressBar1.Position:=sProgressBar1.Position+1;

В начале и в конце потока старт и стоп таймера. Проблема в том, что если поток выполняется быстро, то Progressbar не успевает дойти до 100%, а доходит только до 30% например. Или наоборот, если поток долго выполняется, то Progressbar висит на 100% пока поток не закончит работу. Хотелось бы, чтобы Progressbar загружался плавно на протяжении всего потока до 100%.

[tsar_]

Код давай.

[factually]

Сообщение от tsar_

Код давай.

procedure Thread.Execute;
i:integer;
begin
 form1.tmr1.enabled:=true;
for i:=0 to 16 do begin
form1.memo1.lines.add('score '+inttostr(i));
end;
  Form1.tmr1.Enabled:= false;
 form1.memo1.lines.add('completed 100%');
end;

[tsar_]

1. При оформлении кода используй кнопочку # в редакторе (крайняя справа)
2. Это то, ради чего нужно Прогрессбар заводить? Не дать заснуть пользователю, пока 17 строк Мемо заполняются? Какая задача-то стоит?
3. Работать с визуальными компонентами из левого потока так, как ты делаешь, мягко говоря неправильно. Читай про метод Synchronize (например, тут).

З.Ы. И вообще, откуда узнать априори, сколько времени займет выполнение потока? Не лучше ли привязаться к количеству фактически обработанной информации?

[factually]

Сообщение от tsar_

1. При оформлении кода используй кнопочку # в редакторе (крайняя справа)
2. Это то, ради чего нужно Прогрессбар заводить? Не дать заснуть пользователю, пока 17 строк Мемо заполняются? Какая задача-то стоит?
3. Работать с визуальными компонентами из левого потока так, как ты делаешь, мягко говоря неправильно. Читай про метод Synchronize (например, тут).

2. Код выше для примера. Что необходимо написал еще выше.
3. Знаю, но тут суть не в этом, просто пытаюсь понять как грамотно засинхронить прогрессбар с потоком. В коде может быть что угодно, запросы в веб и пр.

Сообщение от tsar_

З.Ы. И вообще, откуда узнать априори, сколько времени займет выполнение потока? Не лучше ли привязаться к количеству фактически обработанной информации?

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

[tsar_]

Ну вот отправили запрос на сервер... Откуда знать, когда ответ придет?

Общий рецепт мне не известен, но зная специфику задачи можно как-то выкрутиться.
Например если имеем дело с обработкой большого количества однотипной информации (та же запись строк в мемо), то на основе анализа времени выполнения одной/нескольких последовательных операций нужно пробовать предсказать время выполнения оставшихся операций... Но опять же нужно заранее знать объем предстоящих операций.

[Аватар]

Прогрессбар есть смысл применять если заранее можно хотя-бы примерно оценить что будет выполняться. А так только пользователя в заблуждение будет вводить. И не обязательно из потока его дергать, можно просто форме из потока сообщения посылать с процентом выполнения и пусть она дергает свой прогрессбар

[Heneken87]

Сообщение от factually

procedure Thread.Execute;
i:integer;
begin
 form1.tmr1.enabled:=true;
for i:=0 to 16 do begin
form1.memo1.lines.add('score '+inttostr(i));
end;
  Form1.tmr1.Enabled:= false;
 form1.memo1.lines.add('completed 100%');
end;

Этот код для примера? Веду к тому, что запускать некий таймер из потока неправильно. Дайте развернутую инфу, что вы хотите делать в потоке.
Грузить из базы в несколько потоков ?