Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.045 c