DataModule почему ошибка?
#include <vcl.h>
#pragma hdrstop
#include "USelectFile.h"
#include "UDataMpdule.h"
#pragma package(smart_init)
#pragma link "FlCtrlEx"
#pragma resource "*.dfm"
TFSelectFile *FSelectFile;
__fastcall TFSelectFile::TFSelectFile(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TFSelectFile::FormCreate(TObject *Sender)
{
DataModule->Database1->Connected=true;
}
Странно не могу понять почему выдает ошибку.
создал проект с одной формой и одним модулем данных(TDataModule)
В модуле данных держу Database1, Query1, DataSource, подключил к форме .h файл модуля данных,
При компиляции не возникает ни какой ошибке, при запуске приложинеия ругается(что то там про EAccessViolation) на строку DataModul->Database1->Connected=true;, если ее закоментировать, всеравно будет ругаться на все что ссылается на DataModule.
может что то необходимо еще подключить?
#pragma hdrstop
#include "USelectFile.h"
#include "UDataMpdule.h"
#pragma package(smart_init)
#pragma link "FlCtrlEx"
#pragma resource "*.dfm"
TFSelectFile *FSelectFile;
__fastcall TFSelectFile::TFSelectFile(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TFSelectFile::FormCreate(TObject *Sender)
{
DataModule->Database1->Connected=true;
}
Странно не могу понять почему выдает ошибку.
создал проект с одной формой и одним модулем данных(TDataModule)
В модуле данных держу Database1, Query1, DataSource, подключил к форме .h файл модуля данных,
При компиляции не возникает ни какой ошибке, при запуске приложинеия ругается(что то там про EAccessViolation) на строку DataModul->Database1->Connected=true;, если ее закоментировать, всеравно будет ругаться на все что ссылается на DataModule.
может что то необходимо еще подключить?
Цитата:
Originally posted by bleed
#include <vcl.h>
#pragma hdrstop
#include "USelectFile.h"
#include "UDataMpdule.h"
#pragma package(smart_init)
#pragma link "FlCtrlEx"
#pragma resource "*.dfm"
TFSelectFile *FSelectFile;
__fastcall TFSelectFile::TFSelectFile(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TFSelectFile::FormCreate(TObject *Sender)
{
DataModule->Database1->Connected=true;
}
Странно не могу понять почему выдает ошибку.
создал проект с одной формой и одним модулем данных(TDataModule)
В модуле данных держу Database1, Query1, DataSource, подключил к форме .h файл модуля данных,
При компиляции не возникает ни какой ошибке, при запуске приложинеия ругается(что то там про EAccessViolation) на строку DataModul->Database1->Connected=true;, если ее закоментировать, всеравно будет ругаться на все что ссылается на DataModule.
может что то необходимо еще подключить?
#include <vcl.h>
#pragma hdrstop
#include "USelectFile.h"
#include "UDataMpdule.h"
#pragma package(smart_init)
#pragma link "FlCtrlEx"
#pragma resource "*.dfm"
TFSelectFile *FSelectFile;
__fastcall TFSelectFile::TFSelectFile(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TFSelectFile::FormCreate(TObject *Sender)
{
DataModule->Database1->Connected=true;
}
Странно не могу понять почему выдает ошибку.
создал проект с одной формой и одним модулем данных(TDataModule)
В модуле данных держу Database1, Query1, DataSource, подключил к форме .h файл модуля данных,
При компиляции не возникает ни какой ошибке, при запуске приложинеия ругается(что то там про EAccessViolation) на строку DataModul->Database1->Connected=true;, если ее закоментировать, всеравно будет ругаться на все что ссылается на DataModule.
может что то необходимо еще подключить?
Проблемы скорее всего в каких-то настройках БД. Может БДЕ. Попробуй закрыть все программы и найди все файлы Paradox.lck
и Pdoxusrs.lck и если найдет, удали их
Цитата:
Originally posted by bleed
#include <vcl.h>
#pragma hdrstop
#include "USelectFile.h"
#include "UDataMpdule.h"
#pragma package(smart_init)
#pragma link "FlCtrlEx"
#pragma resource "*.dfm"
TFSelectFile *FSelectFile;
__fastcall TFSelectFile::TFSelectFile(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TFSelectFile::FormCreate(TObject *Sender)
{
DataModule->Database1->Connected=true;
}
Странно не могу понять почему выдает ошибку.
создал проект с одной формой и одним модулем данных(TDataModule)
В модуле данных держу Database1, Query1, DataSource, подключил к форме .h файл модуля данных,
При компиляции не возникает ни какой ошибке, при запуске приложинеия ругается(что то там про EAccessViolation) на строку DataModul->Database1->Connected=true;, если ее закоментировать, всеравно будет ругаться на все что ссылается на DataModule.
может что то необходимо еще подключить?
#include <vcl.h>
#pragma hdrstop
#include "USelectFile.h"
#include "UDataMpdule.h"
#pragma package(smart_init)
#pragma link "FlCtrlEx"
#pragma resource "*.dfm"
TFSelectFile *FSelectFile;
__fastcall TFSelectFile::TFSelectFile(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TFSelectFile::FormCreate(TObject *Sender)
{
DataModule->Database1->Connected=true;
}
Странно не могу понять почему выдает ошибку.
создал проект с одной формой и одним модулем данных(TDataModule)
В модуле данных держу Database1, Query1, DataSource, подключил к форме .h файл модуля данных,
При компиляции не возникает ни какой ошибке, при запуске приложинеия ругается(что то там про EAccessViolation) на строку DataModul->Database1->Connected=true;, если ее закоментировать, всеравно будет ругаться на все что ссылается на DataModule.
может что то необходимо еще подключить?
Проблема в том что ты создаешь форму раньше чем ДМ - и пытаешься обратится компоненту который в данный момент еще не существует. Пересмотри порядок загрукзки модулей или создавай ДМ явным образом - DataModul = new TDataModul(this);
Тады этой проблемы не будет - будут другие...:D