[nhr]

У меня в табличку выводится 2 одинаковых числа, но они должны быть разными, т.к. 2 разных БД, одна описана как databases1, а другая databases2

помогите найти ошибку!!

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47

procedure TForm1.FormCreate(Sender: TObject); var Ini:TIniFile; s,s1:string; c1,c2:integer; begin with StringGRid1 do Cells[1,0]:='Count1'; with StringGRid1 do Cells[2,0]:='Count2'; Ini:=TIniFile.Create(changefileext(paramstr(0),'.ini')); // <font color="Teal">s:=Ini.ReadString('databases1','ConnString','') ; s1:=Ini.ReadString('databases1','Query',''); ExecuteDBQuery(s,s1,c1,c2); stringGrid1.Cells[1,1]:=inttostr(c1); // // s:= Ini.ReadString('databases2','ConnString',''); s1:= Ini.ReadString('databases2','Query',''); StringGrid1.Cells[1,2]:=inttostr(c1); </font> // Ini.Free; end;   //function ExecuteDBQuery(const ADBName, ADBConnStr: string):string; procedure TForm1.executeDBQuery(const ADBName, ADBConnStr: string;var c1,c2:integer); var i,j:integer; s,s1:string;   begin ADOQuery1.Active:=False; ADOConnection1.Connected:=False; try ADOConnection1.ConnectionString:=ADBName; ADOConnection1.Connected:=True; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(ADBConnStr); ADOQuery1.Open; //ExecuteDBQuery:=ADOQuery1.Fields[0].AsString; c1:=ADOQuery1.Fields[0].AsInteger; //c2:=ADOQuery1.Fields[1].AsInteger;   finally if ADOquery1.Active Then ADOquery1.Close; ADOConnection1.Connected:=False;   end;  end;