Это функция где идёт обращение к переменной MaxQuest
| Код |
AnsiString q, AnsServ, tmp;
int KolBut;
AnsiString TrueAnswer, AnswerRez;
int f; //Переменная подсчитывающая правильный номер вопроса
if (i<=MaxQuest) {
q=TestDir + IntToStr(i) + ".html";
f=i-1;
TrueAnswer=XOR_Crypt(ReturnCode(LastS(q)),"TESTPASS");
frmClient->ButShow(StrToInt(TrueAnswer[5]));
if (StrToInt(TrueAnswer[2])==NoAnsQues) {
AnswerRez="1";
//ShowMessage("Правильно!");
}
else {
AnswerRez="0";
//ShowMessage("Не верно!");
}
TrueAnswer="";
AnsServ="OTV " + frmClient->labelUserName->Caption + " " + f + " " + NoAnsQues + " " + AnswerRez;
//ShowMessage(AnsServ);
frmClient->IdTCPClient1->Connect();
try {
frmClient->IdTCPClient1->WriteLn(AnsServ);
}
__finally {
frmClient->IdTCPClient1->Disconnect();
}
tmp="\\\\"+frmClient->IdTCPClient1->Host+"\\files\\";
tmp=tmp + IntToStr(i) + ".html";
frmClient->CppWebBrowser1->Navigate(tmp.WideChar(NameQue,100),0,NULL,NULL,NULL);
i++;
}
if ((i-1)==MaxQuest) {
//DisabledButton();
AnsiString End=ExtractFilePath(Application->ExeName);
End=End + "end.html";
frmClient->CppWebBrowser1->Navigate(End.WideChar(NameQue,100),0,NULL,NULL,NULL);
}
|
|
)