Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Нарушение доступа по адресу... [D7, Win95/98, Win2k]


Виктор ©   (2004-10-14 11:59:00) 

Доброго Всем дня Ув. Мастера!
Если кто сталкивался с такой задачей подскажите почему я не могу
создать в потоке 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:19:00) [1]

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


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

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


KSergey   (2004-10-14 12:08:00) [3]

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


Суслик   (2004-10-14 12:06:00) [4]


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

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо