YUriPro
User
Fresh Boarder
| Posts: 3 |   |
Karma: 0
|
|
AnyDAC и FPC
|
|
Posted: 2007/10/31 06:56 |
|
|
|
|
Использую дистрибутив Lazarus-0.9.23-fpc-2.2.0-20071009-win32. Столкнулся с проблемой при открытии набора данных.
procedure TADCustomConnection.AttachClient(AObj: TObject);
begin
{$IFDEF AnyDAC_FPC}
if AObj is TADDataSet then
TADDataSet(AObj).DataBase := TDatabase(Self)
|
...
вызывает
Procedure TDBDataset.SetDatabase (Value : TDatabase);
begin
...
If Value<>Nil Then
Value.RegisterDataset(Self);
...
end;
|
и, соответственно,
procedure TDatabase.RegisterDataset (DS : TDBDataset);
Var I : longint;
begin
I:=FDatasets.IndexOf(DS);
...
end;
|
Но конструктор класса TDataBase не вызывался, т.к. TADCustomConnection наследуется напрямую от TCustomConnection. Поэтому объект FDatasets не создан, и как следствие - Access Violation.
Т.е. не ясно, как в принципе компоненты могут работать?
|
|
