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

case 14:Form1->Label14->Color=clYellow;summa=500000;break;

case 15:Form1->Label15->Color=clYellow;summa=1000000;break;

}

position++;

}

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

void score (int s)

{

if (s==1)fmScore->ShowModal ();

if (s==0) return;

}

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

void save_rating (void)

{

AnsiString name_player=Form4->Edit1->Text;

if (fmRating->Table1->RecordCount>10)

{

for (int i=0; iTable1->RecordCount; i++)

{

fmRating->Table1->Delete();

fmRating->Table1->Next();

}

fmRating->Table1->First();

}

if (position==6) summa=1000;

if (position==11) summa=100000;

fmRating->Table1->Edit();

fmRating->Table1->FieldValues[("NAME")]=name_player;

fmRating->Table1->FieldValues[("BODY")]=summa;

fmRating->Table1->Next();