Главная страница
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.057 c
15-1266662604
oldman
2010-02-20 13:43
2010.08.27
Майкрософт прикалывается?


15-1271364443
pokey
2010-04-16 00:47
2010.08.27
Регистрация в QIWI


15-1274804554
VasiliyP
2010-05-25 20:22
2010.08.27
Нужна помощь с тестом по Pascal ю


15-1264333660
Новичок
2010-01-24 14:47
2010.08.27
Электронный словарь в Delphi


15-1270305381
Игорь Шевченко
2010-04-03 18:36
2010.08.27
Microsoft заботится о нас. Иногда даже чересчур