请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;