Вопрос по Thread, мож кто прояснит в чём дело...

← →
_Agent_ (2003-11-04 17:16) [0]

создаю Ветвь..
type
TScanThr = class(TThread)
DBFQuery:TQuery;
SQLStorPr:TStoredProc;
protected
procedure Execute; override;
public
constructor Create(........);
destructor Destroy; override;
end;

implementation
constructor TScanThr.Create ( ......);
begin
inherited Create(True);
FreeOnTerminate :=True;
DBFQuery:=TQuery.Create(nil);
.......
SQLStorPr:=TStoredProc.Create(nil);
.......
Resume;
end;

procedure TScanThr.Execute;
begin
..........
end;

destructor TScanThr.Destroy;
begin
if Assigned(DBFQuery) then
begin
DBFQuery.Close;
DBFQuery.Free;
DBFQuery := nil;
end;
if Assigned(SQLStorPr) then
begin
SQLStorPr.Close;
SQLStorPr.Free;
SQLStorPr := nil;
end;
inherited;
end;
спервого раза всё отрабатывает нормально и destructor тоже.
далее если из основного потока вызвать
If not Assigned( ScanThr)then (где ScanThr:TScanThr)
begin
//действия повторно не выполняются
end;
мож я как то не так удаляю ветвь в деструкторе
Заранее благодарен..

← →
Игорь Шевченко © (2003-11-04 17:33) [1]

После деструктора переменная ScanThr не обнуляется. Отладчиком надо пользоваться вообще-то...

← →
Chlavik © (2003-11-04 17:40) [2]

.. ScanThr:=TScanThr.Create...... ScanThr.OnTerminate:=ScanThrTerminate; .. procedure Form1.SQLStorPrTerminate(Sender:TObject); begin ScanThr:=nil; end;

← →
_Agent_ (2003-11-04 18:00) [3]

Спасибо большое.....
P.S. Век живи, век учись .... и дальше что то про дурака и смерть :)))

Вопрос по Thread, мож кто прояснит в чём дело... Найти похожие ветки