Wizard for new DB engine
I created a new DB engine with this wizard and it creates fine, but when compile the source created shows the error: Cannot assign to a read-only property, in the next code and others. The Database property is Read-Only. I probed the TTable Database property and is Read-Only too.
procedure TfrxEACTable.SetDatabase(const Value: TfrxEACDatabase);
begin
FDatabase := Value;
if Value <> nil then
FTable.Database := Value.Database
else if EACComponents <> nil then
FTable.Database := EACComponents.DefaultDatabase
else
FTable.Database := nil;
end;
Thanks
Regards
procedure TfrxEACTable.SetDatabase(const Value: TfrxEACDatabase);
begin
FDatabase := Value;
if Value <> nil then
FTable.Database := Value.Database
else if EACComponents <> nil then
FTable.Database := EACComponents.DefaultDatabase
else
FTable.Database := nil;
end;
Thanks
Regards