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

                                                                        if((Table4IDMatch->AsInteger == tmpIDMatch) && (Table4IDPlayer->AsInteger == Player.ID))

                                                                        {

                                                                                Player.TGoals = Player.TGoals+1;

                                                                        }

                                                                }

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

                                                                {

                                                                        Table5->RecNo = l;

                                                                        if((Table5IDMatch->AsInteger == tmpIDMatch) && (Table5IDPlayer->AsInteger == Player.ID))

                                                                        {

                                                                                Player.TTrows = Player.TTrows + Table5Trows->AsInteger;

                                                                                Player.TSelections = Player.TSelections + Table5Selections->AsInteger;

                                                                                Player.TInterceptions = Player.TInterceptions + Table5Interceptions->AsInteger;

                                                                                Player.TPlayTime = Player.TPlayTime + Table5PlayTime->AsInteger;

                                                                        }

                                                                }

                                                        }

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

                                                        {

                                                                tmpIDMatch = Table3ID->AsInteger;

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

                                                                {

                                                                        Table4->RecNo = l;

                                                                        if((Table4IDMatch->AsInteger == tmpIDMatch) && (Table4IDPlayer->AsInteger == Player.ID))

                                                                        {

                                                                                Player.MGoals = Player.MGoals+1;

                                                                        }

                                                                }

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

                                                                {

                                                                        Table5->RecNo = l;

                                                                        if((Table5IDMatch->AsInteger == tmpIDMatch) && (Table5IDPlayer->AsInteger == Player.ID))

                                                                        {

                                                                                Player.MTrows = Player.MTrows + Table5Trows->AsInteger;

                                                                                Player.MSelections = Player.MSelections + Table5Selections->AsInteger;

                                                                                Player.MInterceptions = Player.MInterceptions + Table5Interceptions->AsInteger;