DELPHI XE,E2010 Incompatible types: 'string' and 'Integer'错误
chatm 2011-03-29 11:41:41 请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;