Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Динамическое создание FibQuery как поле класса   Найти похожие ветки 

 
Девушка   (2010-04-07 11:04) [0]

Объявлен класс
TBaseExporter=class (TObject)
  private
    FIBQuery:TpFIBQuery;
  public
    Constructor Create(InDatabase:TpFIBDatabase;InTransaction:TpFIBTransaction);
    Destructor Destroy; override;
...
  End;


...

Объявление конструктора
Constructor TBaseExporter.Create(InDatabase:TpFIBDatabase;InTransaction:TpFIBTransaction);
Begin
 Inherited create();
 FIBQuery:=TpFIBQuery.Create(nil);
 FIBQuery.Database:=InDatabase;
 FIBQuery.Transaction:=InTransaction;
End;


При вызове конструктоар на строчке  "FIBQuery:=TpFIBQuery.Create(nil);" вылетает с AV (адреса в AV сильно отличные от нуля т.е. с неициниализацией объекта видимо не связано)

В то же время код
procedure TForm1.Button2Click(Sender: TObject);
Var
FIBQuery:TpFIBQuery;
begin
 FIBQuery:=TpFIBQuery.Create(nil);
 FIBQuery.Free;
end;

проходит без ошибок.


 
icWasya ©   (2010-04-07 11:28) [1]

Ну а как вызывается конструктор TBaseExporter?


 
Девушка   (2010-04-07 12:03) [2]


> Ну а как вызывается конструктор TBaseExporter?
>

procedure TForm1.Button1Click(Sender: TObject);
var
...
 BaseExporter:TBaseExporter;
begin
 BaseExporter.Create(pFIBDatabase1,pFIBTransaction1);
...


pFIBDatabase1 и pFIBTransaction1 лежат на форме (Form1).


 
Девушка   (2010-04-07 12:04) [3]

Блин... вопрос снят.


 
Сергей М. ©   (2010-04-07 12:05) [4]


> Девушка   (07.04.10 12:03) [2]


> BaseExporter.Create(pFIBDatabase1,pFIBTransaction1);


Ну это же ересь самая настоящая)


 
Девушка   (2010-04-07 13:15) [5]


> Ну это же ересь самая настоящая)

Уже вот так   BaseExporter:=TBaseExporter.Create(pFIBDatabase1,pFIBTransaction1);

Или что-то концептуально не так?


 
Сергей М. ©   (2010-04-07 13:18) [6]


> Уже вот так


Теперь верно)



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

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

Наверх




Память: 0.47 MB
Время: 0.054 c
15-1268629941
Дмитрий С
2010-03-15 08:12
2010.08.27
Приложение N в одном.


11-1195764794
tigra
2007-11-22 23:53
2010.08.27
kol-synapse


15-1275337781
Юрий
2010-06-01 00:29
2010.08.27
С днем рождения ! 1 июня 2010 вторник


15-1272627412
12
2010-04-30 15:36
2010.08.27
EDBEngineError. Cannot load driver. Что можно сделать?


2-1274344276
zamtmn
2010-05-20 12:31
2010.08.27
unicode->ascii