[T232006]

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

Код:

1 2 3 4 5 6 7 8 9 10

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;

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

Код:

1 2 3 4

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 раза. Тут интересный вопрос. Может у тебя обработчик таймера вызывается из нескольких мест, может еще какие-то событя есть подобные.