Разработка информационно-поисковой системы на основе Borland Database Engine, драйвер – Paradox, страница 13

                                SetCellValue(ExcelApplication.OlePropertyGet("Worksheets",Index), 6, 4, "Количество голов");

                                SetCellValue(ExcelApplication.OlePropertyGet("Worksheets",Index), 6, 9, "Количество голов");

                                SetCellValue(ExcelApplication.OlePropertyGet("Worksheets",Index), 6, 5, "Количество подборов");

                                SetCellValue(ExcelApplication.OlePropertyGet("Worksheets",Index), 6, 10, "Количество подборов");

                                SetCellValue(ExcelApplication.OlePropertyGet("Worksheets",Index), 6, 6, "Количество перехватов");

                                SetCellValue(ExcelApplication.OlePropertyGet("Worksheets",Index), 6, 11, "Количество перехватов");

                                SetCellValue(ExcelApplication.OlePropertyGet("Worksheets",Index), 6, 7, "Время в игре (мин)");

                                SetCellValue(ExcelApplication.OlePropertyGet("Worksheets",Index), 6, 12, "Время в игре (мин)");

                                for (int j=1; j<=4; j++)

                                {

                                        ExcelApplication.OlePropertyGet("Worksheets",Index).OlePropertyGet("Range", "B5:L6").OlePropertyGet("Borders").OlePropertyGet("Item", j).OlePropertySet("LineStyle", 1);

                                }

                                int Index2 = 0;

                                for(int j=1;j<=Table2->RecordCount;j++)

                                {

                                        Table2->RecNo = j;

                                        if(Table2IDCommand->AsInteger == tmpIDTeam)

                                        {

                                                Index2 += 1;

                                                Player.Name = Table2Name->AsString;

                                                Player.Index = Index2;

                                                Player.ID = Table2ID->AsInteger;

                                                Player.IDTeam = Table2IDCommand->AsInteger;

                                                Player.IDModular = Table2IDModular->AsInteger;

                                                Player.TGoals = 0;

                                                Player.MGoals = 0;

                                                Player.MTrows = 0;

                                                Player.TTrows = 0;

                                                Player.MSelections = 0;

                                                Player.TSelections = 0;

                                                Player.MInterceptions = 0;

                                                Player.TInterceptions = 0;

                                                Player.MPlayTime = 0;

                                                Player.TPlayTime = 0;

                                                for(int k=1;k<=Table3->RecordCount;k++)

                                                {

                                                        Table3->RecNo = k;

                                                        if(Table3IDTeam1->AsInteger == Player.IDTeam || Table3IDTeam2->AsInteger == Player.IDTeam)

   {

                                                                tmpIDMatch = Table3ID->AsInteger;

                                                                for(int l=1; l<=Table4->RecordCount;l++)

                                                                {

                                                                        Table4->RecNo = l;