Поясните пожалуйста значение свойства TThread.FreeOnTerminate

← →
Nilman © (2010-02-09 13:45) [0]

Сразу прошу прощения за глуповатый на мой взгляд вопрос, но сам разобраться не могу!) Как понял из хелпа, свойство FreeOnTerminate автоматически уничтожает созданный мной TThread. Но как-то он у меня не разрушается после завершения потока.. Создал поток:
ScanThread := TScanThread.Create(True);
ScanThread.Priority := tpNormal;
ScanThread.FreeOnTerminate:=True;
ScanThread.OnTerminate:=FOnScanThreadTerminate;
ScanThread.Resume;

После завершения потока, сработало FOnScanThreadTerminate, после этого нажимаю на кнопку, на OnClick которой задано:

if Assigned(ScanThread) then ShowMessage("assigned") else ShowMessage("not assigned");

После завершения потока, нажатие на кнопку отвечает сообщением assigned, а насколько я понял, я должен получать not assigned.. Подскажите пож, что не так делаю?

← →
Ega23 © (2010-02-09 14:16) [1]

> После завершения потока, нажатие на кнопку отвечает сообщением
> assigned, а насколько я понял, я должен получать not assigned.
> . Подскажите пож, что не так делаю?

Вот у тебя есть знакомый. У тебя в блокноте записан его адрес. И вдруг твой знакомый помер. У тебя запись в блокноте исчезнет сама-собой?

У тебя есть указатель на экземпляр класса. Ты вызвал деструктор, память по этому адресу освободилась. Но это не значит, что значение указателя моментально обнулилось.

← →
12 © (2010-02-09 14:18) [2]

а это не тот случай?

var P: Pointer;
begin
P := nil;
if Assigned (P) then Showmessage ("1");
GetMem(P, 1024); {P valid}
FreeMem(P, 1024); {P no longer valid and still not nil}
if Assigned (P) then Showmessage ("2");

← →
Nilman © (2010-02-09 14:20) [3]

А что значит моментально? Кнопку с проверкой на Assigned( нажимаю не раньше секунды.. Или там вообще не определённое время? Если так, то как мне всё таки проверить существует ли экземпляр TThread?

← →
Nilman © (2010-02-09 14:23) [4]

> 12 ©

Судя по всему аналогичный, тогда вопрос немного другой, можно ли как нибудь узнать, выделили ли мы память под P, и сделать это без своих каких то доп. переменных?

← →
Ega23 © (2010-02-09 14:29) [5]

> А что значит моментально? Кнопку с проверкой на Assigned(
> нажимаю не раньше секунды.. Или там вообще не определённое
> время? Если так, то как мне всё таки проверить существует
> ли экземпляр TThread?

Да хоть пицот раз нажимай. Пока ты САМ не изменишь его на nil - за тебя его никто не изменит.
Ну на крайняк - шли нотификацию из треда, мол - мне кирдык, я разрушаюсь.

Спасибо всем, вопрос снят!

Поясните пожалуйста значение свойства TThread.FreeOnTerminate Найти похожие ветки