Гра "Перший мільйон", Детальна інформація
Гра "Перший мільйон"
Тип документу: Курсова
Сторінок: 31
Предмет: Комп`ютерні науки
Автор: Ісак І.І.
Розмір: 166.5
Скачувань: 2025
s=0;
}
next ();
score (s);
flash (p,color);
update();
no_fire();
}
else nepravilno (p);
}
//---------------------------------------------------------------------------
void restore_base1 (void)
{
Form1->Table1->First();
Form1->Table4->First();
for (int i=0; iTable1->RecordCount; i++)
{
Form1->Table4->Insert();
Form1->Table4->FieldValues[("VOPROS")]=Form1->Table1->FieldValues[("VOPROS")];
Form1->Table4->FieldValues[("A")]=Form1->Table1->FieldValues[("A")];
Form1->Table4->FieldValues[("B")]=Form1->Table1->FieldValues[("B")];
Form1->Table4->FieldValues[("C")]=Form1->Table1->FieldValues[("C")];
Form1->Table4->FieldValues[("D")]=Form1->Table1->FieldValues[("D")];
Form1->Table4->FieldValues[("PR_OTV")]=Form1->Table1->FieldValues[("PR_OTV")];
Form1->Table1->Next();
Form1->Table4->Next();
}
}
void restore_base2 (void)
{
}
next ();
score (s);
flash (p,color);
update();
no_fire();
}
else nepravilno (p);
}
//---------------------------------------------------------------------------
void restore_base1 (void)
{
Form1->Table1->First();
Form1->Table4->First();
for (int i=0; i
{
Form1->Table4->Insert();
Form1->Table4->FieldValues[("VOPROS")]=Form1->Table1->FieldValues[("VOPROS")];
Form1->Table4->FieldValues[("A")]=Form1->Table1->FieldValues[("A")];
Form1->Table4->FieldValues[("B")]=Form1->Table1->FieldValues[("B")];
Form1->Table4->FieldValues[("C")]=Form1->Table1->FieldValues[("C")];
Form1->Table4->FieldValues[("D")]=Form1->Table1->FieldValues[("D")];
Form1->Table4->FieldValues[("PR_OTV")]=Form1->Table1->FieldValues[("PR_OTV")];
Form1->Table1->Next();
Form1->Table4->Next();
}
}
void restore_base2 (void)
{