Гра "Перший мільйон", Детальна інформація

random_question ();

v0=Form1->Table5->FieldValues[("VOPROS")];

v1=Form1->Table5->FieldValues[("A")];

v2=Form1->Table5->FieldValues[("B")];

v3=Form1->Table5->FieldValues[("C")];

v4=Form1->Table5->FieldValues[("D")];

pr_otv=Form1->Table5->FieldValues[("PR_OTV")];

Form1->Table5->Delete();

}

if (position>=11)

{

if (Form1->Table6->RecordCount==0) restore_base3();

random_question ();

v0=Form1->Table6->FieldValues[("VOPROS")];

v1=Form1->Table6->FieldValues[("A")];

v2=Form1->Table6->FieldValues[("B")];

v3=Form1->Table6->FieldValues[("C")];

v4=Form1->Table6->FieldValues[("D")];

pr_otv=Form1->Table6->FieldValues[("PR_OTV")];

Form1->Table6->Delete();

}

}

//-----------------------------------------------------------------------------

void play (AnsiString file_name)

{

Form1->Player1->FileName=file_name;

Form1->Player1->Open();

Form1->Player1->Play();

}

//-----------------------------------------------------------------------------