我在运行期生成了两个类的对象,一个是TTable,一个是TdxdbGrid(一个比较有名的第三方控件,程序在我的开发机上面运期正常,但是Copy到别的机器上面时就不行了,出错提示如下:An error occurred while attempting to initialize the Borland Database Engine(error $2109),程序其它部分应该是没问题,因为其它部分在别的机器上面都可以用,就是下面运行这一部分的时候就出错,请各位指点;
程序如下:
Procedure TTotalFrm.CreateTempTab; //此过程生成TTable类的对象
var
i:integer;
MemTab:TTable;
begin
MemTab:=TTable.create(self); // <------- 生成TTable类的对象;
with MemTab do
begin
TableName := 'MemTable';
TableType := ttParadox;
with FieldDefs do
for i:=0 TO 5 do Add('D'+intTOstr(i),ftFloat);
CreateTable;
end;
MemTab.Active:=True;
end;procedure TTotalFrm.Createdxdb; //此过程用于在运行期生成dxdbgrid对象的列
var
i:integer;
ColumnName:Array[1..1024] of TdxDBTreeListColumn;
begin
for i:=1 TO 5 do
begin
ColumnName[i]:=dxDBGrid2.CreateColumn(TdxdbGridColumn);
ColumnName[i].Caption:='D'+intTOstr(i);
ColumnName[i].FieldName:='D'+intTOstr(i);
ColumnName[i].Index :=i;
ColumnName[i].BandIndex:=1;
ColumnName[i].Width:=60;
ColumnName[i].HeaderAlignment:=TaCenTer;
end;
end;
程序如下:
Procedure TTotalFrm.CreateTempTab; //此过程生成TTable类的对象
var
i:integer;
MemTab:TTable;
begin
MemTab:=TTable.create(self); // <------- 生成TTable类的对象;
with MemTab do
begin
TableName := 'MemTable';
TableType := ttParadox;
with FieldDefs do
for i:=0 TO 5 do Add('D'+intTOstr(i),ftFloat);
CreateTable;
end;
MemTab.Active:=True;
end;procedure TTotalFrm.Createdxdb; //此过程用于在运行期生成dxdbgrid对象的列
var
i:integer;
ColumnName:Array[1..1024] of TdxDBTreeListColumn;
begin
for i:=1 TO 5 do
begin
ColumnName[i]:=dxDBGrid2.CreateColumn(TdxdbGridColumn);
ColumnName[i].Caption:='D'+intTOstr(i);
ColumnName[i].FieldName:='D'+intTOstr(i);
ColumnName[i].Index :=i;
ColumnName[i].BandIndex:=1;
ColumnName[i].Width:=60;
ColumnName[i].HeaderAlignment:=TaCenTer;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货