Нарушение доступа по адресу...

← →
Виктор © (2004-10-14 11:59) [0]

Доброго Всем дня Ув. Мастера!
Если кто сталкивался с такой задачей подскажите почему я не могу
создать в потоке TpFIBQuery? Код такой:
TThreadTrans = class(TThread)
protected
procedure Trans;
procedure Execute; override;
end;

procedure TThreadTrans.Trans;
var FIB :TpFIBQuery;
begin
...
FIB.Create(nil); <-Ошибка
...
end;

procedure TThreadTrans.Execute;
begin
FreeOnTerminate:=true;
Trans;
inherited;
end;

procedure TfmMain.BtnTransClick(Sender: TObject);
begin
ThreadTrans := TThreadTrans.Create(False);
end;

Зараннее всем спасибо.

← →
Суслик © (2004-10-14 12:06) [1]

> FIB.Create(nil); <-Ошибка

Ты не знаешь как экземпляры классов (объекты) в дельфи создаются?

← →
KSergey © (2004-10-14 12:08) [2]

http://www.delphikingdom.com/helloworld/runtime_comp.htm

← →
Дмитрий Ботвин (2004-10-14 12:10) [3]

И к тому же FreeOnTerminate:=true лучше указывать после
ThreadTrans := TThreadTrans.Create(False), а не в процедуре
Execute!!!!

Я понял, это наверно нечистая меня спутала надо так
FIB:=TpFIBQuery.Create(nil);
Всем спасибо!

Нарушение доступа по адресу... Найти похожие ветки