Rewrite(FO);

         Writeln(FO,'0');

         CloseFile(FO);

       end;

       end;

       ListBox.ItemIndex:=0;

     end;

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

     //Создание нового игрока

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

     procedure TFormNew.BNewClick(Sender: TObject);

     var ClickedOK: Boolean; //Нажата ли кнопка  ОК

     begin

       ClickedOK:=InputQuery('Новый игрок',

           'Введите имя нового игрока', NameGamer);

       if ClickedOk and (NameGamer<>'') then begin  //Если имя игрока введено

         AssignFile(FO, 'Players.dat'); AssignFile(FS, '1.dat');

         Reset(FO); Rewrite(FS);  //Открытие двух файлов

         Readln(FO, S); KolGamer:=StrToInt(S);

         Writeln(FS, IntToStr(KolGamer+1));  //Запись увеличенного кол. икроков

         if KolGamer<>0 then for i:=1 to KolGamer do for j:=1 to 6 do begin

           Readln(FO, S); Writeln(FS, S);

         end;

         //Добавление в конец файла  информации о новом игроке

         Writeln(FS, NameGamer);

         Writeln(FS, '100'); Writeln(FS, '20'); Writeln(FS, '7');

         Writeln(FS, '1'); Writeln(FS, '1');

         //Закрытие файлов и удаление временного

         CloseFile(FO); CloseFile(FS);

         CopyFile('1.dat', 'Players.dat',False);

         DeleteFile('1.dat');

         //Добавление нового игрока в  список

         ListBox.Items.Add(NameGamer);

         ListBox.ItemIndex:=ListBox.Items.Count-1;

       end;

     end;

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

     //Удаление  игрока

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

     procedure TFormNew.BDelClick(Sender: TObject);

     begin

       AssignFile(FO, 'Players.dat'); AssignFile(FS, '1.dat');

       Reset(FO); Rewrite(FS);   //Открытие файлов

       Readln(FO, S); KolGamer:=StrToInt(S);

       Writeln(FS, IntToStr(KolGamer-1)); //Запись уменьшеннго кол. игроков

       //Перезапись игроков кроме выделенного в списке

       for i:=1 to KolGamer do

         if i<>ListBox.ItemIndex+1 then

           for j:=1 to 6 do begin Readln(FO, S); Writeln(FS, S); end

         else for j:=1 to 6 do Readln(FO, S); //Пропуск 6 строчек

       //Закрытие файлов и удаление временного

       CloseFile(FO); CloseFile(FS);

       CopyFile('1.dat', 'Players.dat',False);

       DeleteFile('1.dat');

       FormCreate(nil); //Обновление списка игроков

     end;

     end.

     2.4 Тестирование программы

     После запуска приложения появляется главное  окно программы в цен-тре экрана, которое перекрыто диалоговым окном выбора игрока. Нажимаем кнопку «Новый». Появляется окно, в которое предлагается ввести имя создаваемого игрока. Вид программы представлен в приложении 1. Вводим имя «Сергей» и нажимаем клавишу «ОК». Имя игрока появляется в списке игроков. После нажатия на кнопку «Выбрать». Главное окно программы с начальными значениями становится активным. Вид программы на данном этапе представлен в приложении 1, второй рисунок. После нажатия на кнопку «Ход» вид окна программы изменился (приложение 1, третий рисунок). Далее, в таблице 3 представлена таблица с данными игры созданного игрока до полного проигрыша. Вид окна программы на последнем этапе игры представлен в приложении 1, 4 рисунок.

     Таблица 3

     Заключение

     В условии задачи не сказано о максимально допустимом выигрыше, поэтому в игре не предусмотрено данное ограничение. Также не ограничено количество разных игроков.

     Для уменьшения размера исполняемого файла  программы можно картинки граней кубиков загружать при запуске  игры. Можно добавить озвучивание  событий игры, уровень сложности игры и разные настройки параметров игры. Это вызвало бы больший интерес к игре.

     Используемая  в программе структура файла  наиболее оптимально подходит для такого рода операций над файлом как сохранение всей информации о каждом игроке. При  использовании текстового файла нет необходимости создавать динамические структуры. Для доступа к информации о любом игроке, записанном в файле, необходимо пропустить по 6 строк для каждого предыдущего игрока.

     В целом приложение представляет собой  почти самый простой вариант игры «Кости» с набором самых необходимых функций.

     Глоссарий

     Список  использованных источников

     Приложения