Текущий архив: 2004.11.28;
Скачать: CL | DM;

Вниз

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

← →
Виктор ©   (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!!!!

---

← →
Виктор ©   (2004-10-14 12:19) [4]

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

---

Страницы: 1 вся ветка

Текущий архив: 2004.11.28;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.036 c