يمكنك فقط بعد معرفة عدد الجداول .... القيام باللوب "for" مع إستعمال خاصية "ADOQuery1.RecordCount"
procedure TFrmMain.Btn_GetRecodCountForEachTableClick(Sender: TObject);
var
I: Integer;
List: TStringList;
AdoQuery: TADOQuery;
begin
List := TStringList.Create;
AdoQuery := TADOQuery.Create(nil);
AdoQuery.Connection := ADOCon_MyData;
ADOCon_MyData.GetTableNames(List, False);
for I:= 0 to List.Count -1 do
begin
with AdoQuery do
begin
Close;
SQL.Clear;
SQL.Add('select * from ' + List[I]); Open;
// SQL.Add('do your Needed Query here'); ExecSQL;
LstBox_TablesNames.Items.Add(List[I] + ' ==> ' + RecordCount.ToString);
end;
end;
List.Free;
AdoQuery.Free;
end;