[T232006]

Здравствуйте! Даже не знаю, как описать... Проблема смешная, но очень непонятная, но вдруг кто сталкивался...
В общем, есть некий Thread, который останавливается, как только ProgressBar достигнет максимума.

Код:

rocedure TForm1.cloudTimerTimer(Sender: TObject);
begin
  if cloudProgr.Position>=cloudProgr.Max then
  begin
    cloudTimer.Enabled:=false;
    cloudProgr.Visible:=false;
    CloudThread.Terminate;
    CloudProcBut.Visible:=false;
  end;
  cloudProgr.StepIt;

Всё работает замечательно. Но вдруг пользователь передумал и решил досрочно прервать процесс. Для этого предусмотрена кнопка, которая прогрессбару сразу присваивает максимум, тогда описанное выше событие сразу прервет тред.

Код:

procedure TForm1.CloudProcButClick(Sender: TObject);
begin
  cloudProgr.Position:=cloudProgr.Max;
end;

Но происходит невероятное - на строке CloudThread.Terminate; происходит ошибка. То есть, если прогрессбар сам достиг максимума - то нормально, а если ему помогли - то нет. Если CloudThread.Terminate включить по нажатию кнопки - тоже ошибка. Сам Thread почти ничего не делает. Как такое может быть?

[lmikle]

А какая ошибка-то?
А то гадать можно долго что там не так....

[T232006]

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

[lmikle]

как часто вызывается таймер. А то не может быть, что он успевает сработать 2 раза и, как следствие, у тебя происходит обращение к уже удаленному объекту (потоку).

[T232006]

Проблема решилась путем установки свойства CloudThread.FreeOnTerminate:=false;
Хотя причина этой аномалии по прежнему остается загадкой.

[lmikle]

Причина довольно проста.
Фактически, у тебя происходит вызов Terminate 2 раза. Во второй раз происходит попытка вызова у уже удаленого объекта, отсюда и ошибка.

Почему вызывается 2 раза. Тут интересный вопрос. Может у тебя обработчик таймера вызывается из нескольких мест, может еще какие-то событя есть подобные.