请DX们看看哪里不对:
程序中所有Providers[I]、Providers[FCount]……等等指定Providers数组下标的语句(类似于红字部分的),都出现“E2010 Incompatible types: 'string' and 'Integer'”错误;而同样定义和使用的、指定Adoqs数组下标的语句(类似于蓝字部分的)却没问题。const
gMaxPoolSize = 100;type
TCSDAL6Sai = class(TDSServerModule)
……
private
FCount: integer;
……
end;……var
Providers: array [1..gMaxPoolSize] of TDataSetProvider;
Adoqs: array [1..gMaxPoolSize] of TADOQuery;implementation{$R *.dfm}procedure TCSDAL6Sai.DSServerModuleDestroy(Sender: TObject);
var
I: integer;
begin
for I := 1 to FCount do
begin
FreeAndNil(Providers[I]);
FreeAndNil(Adoqs[I]);
end;
end;
程序中所有Providers[I]、Providers[FCount]……等等指定Providers数组下标的语句(类似于红字部分的),都出现“E2010 Incompatible types: 'string' and 'Integer'”错误;而同样定义和使用的、指定Adoqs数组下标的语句(类似于蓝字部分的)却没问题。const
gMaxPoolSize = 100;type
TCSDAL6Sai = class(TDSServerModule)
……
private
FCount: integer;
……
end;……var
Providers: array [1..gMaxPoolSize] of TDataSetProvider;
Adoqs: array [1..gMaxPoolSize] of TADOQuery;implementation{$R *.dfm}procedure TCSDAL6Sai.DSServerModuleDestroy(Sender: TObject);
var
I: integer;
begin
for I := 1 to FCount do
begin
FreeAndNil(Providers[I]);
FreeAndNil(Adoqs[I]);
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货