Разработка приложения для Windows, представляющего собой компьютерную игру «Кости»

     StatusBar.Panels[1].Text:='Выпало:';

     StatusBar.Panels[2].Text:='Выигрыш:';

     end;

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

     //Вывод  граней кубиков и подсчет выигрыша

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

     procedure TFormGame.TimerTimer(Sender: TObject);

     var i:integer;   //Для создания цикла

         Viigresh:longint; //Выигрыш

     begin

       Randomize;

       for i:=1 to 2 do Kub[i]:=random(6)+1;  //Подбор случ. чисел

       //Вывод граней кубиков

       ImageTable.Canvas.CopyRect(Rect(11,17,71,77),

         ImageKubik.Canvas, Rect((Kub[1]-1)*60,0,(Kub[1]-1)*60+60,60));

       ImageTable.Canvas.CopyRect(Rect(82,17,142,77),

         ImageKubik.Canvas, Rect((Kub[2]-1)*60,0,(Kub[2]-1)*60+60,60));

       //Увеличение количества раз заходов в процедуру

       Rotation:=Rotation+1;

       if Rotation=6 then begin

         Rotation:=0;

         Timer.Enabled:=False;  //Выключение таймера

         Viigresh:=0;  //Очистка значения выигрыша

         //Подсчет выигрыша

         if (Kub[1]+Kub[2] < 7) and (SEChislo.Value < 7) then Viigresh:=SEStavka.Value;

         if (Kub[1]+Kub[2] > 7) and (SEChislo.Value > 7) then Viigresh:=SEStavka.Value;

         if Kub[1]+Kub[2] = SEChislo.Value then Viigresh:=SEStavka.Value * 4;

         StatusBar.Panels[1].Text:='Выпало: ' + IntToStr(Kub[1]+Kub[2]);

         StatusBar.Panels[2].Text:='Выигрыш: ' + IntToStr(Viigresh);

         SEStavka.MaxValue:=Kredit; //Макс ставка не превышает кредит

         if Viigresh = 0 then begin

           Viigresh:=Viigresh - SEStavka.Value;  //Минусовой выигрыш

           StatusBar.Panels[0].Text:='Ты проиграл!';

         end else StatusBar.Panels[0].Text:='Ты выиграл!';

         Kredit:=Kredit+Viigresh;   //Увеличение кредита и

         LKredit.Caption:=IntToStr(Kredit);  //его вывод

         //Если кредит кончился

         if Kredit<=0 then begin

           Application.MessageBox('Ты проиграл!!!', 'Проигрыш',MB_OK+MB_ICONINFORMATION);

           FormNEw.BDelClick(nil);    //Удаление игрока

           FormNew.listbox.Refresh;   //Перерисовка списка игроков

           FormNew.ShowModal;         //Вызов окна выбора игрока

         end

         else if SEStavka.Value > Kredit then begin

           SEStavka.Value:=Kredit;

           SEStavka.MaxValue:=Kredit; //Максимальное значение ставки

         end;

       end;

     end;

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

     //Выбор игрока

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

     procedure TFormGame.FormActivate(Sender: TObject);

     begin

     FormNew.ShowModal;  //Вызов окна выбора игрока

     end;

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

     //Закрытие игры

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

     procedure TFormGame.FormClose(Sender: TObject; var Action: TCloseAction);

     begin

     FormNew.SaveGamer;  //Сохранение игроков

     end;

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

     //Выбор  игрока

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

     procedure TFormGame.BGamerClick(Sender: TObject);

     begin

     FormNew.SaveGamer; //Сохранение текущего игрока

     FormNew.ShowModal; //Вызов окна выбора игрока

     end;

     end. 

     Текст программы для формы – FormGame:

     unit Unit2;

     interface

     uses

       Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

       StdCtrls;

     type

       TFormNew = class(TForm)

         GroupBox1: TGroupBox;

         ListBox: TListBox;

         BNew: TButton;       //Создание нового игрока

         BDel: TButton;       //Удаление выбранного игрока

         BOK: TButton;        //Выбор выделенного игрока

         procedure BOKClick(Sender: TObject);

         procedure FormCreate(Sender: TObject);

         procedure BNewClick(Sender: TObject);

         procedure SaveGamer;

         procedure BDelClick(Sender: TObject);

       private

         { Private declarations }

       public

         { Public declarations }

       end;

     var

       FormNew: TFormNew;

       FO, FS:TextFile;          //Файлы для чтения и записи

       S, NameGamer:string; //Для чтения строчек  из файла и имя игрока

       i, j,                               //Для создания циклов

       KolGamer:integer;      //Количество  игроков

     implementation

     uses Unit1;

     {$R *.DFM}

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

     //Перезапись файла игроков

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

     procedure TFormNew.SaveGamer;

     begin

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

       Reset(FO); Rewrite(FS);

       //Чтение количества игроков

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

       Writeln(FS, S); //Запись во временный файл

       //Цикл перебора всех игроков  в файле

       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 begin

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

            //Запись новых значений о текущем игроке

            Writeln(FS, NameGamer);

            Writeln(FS, IntToStr(Kredit));

            Writeln(FS, IntToStr(FormGame.SEStavka.Value));

            Writeln(FS, IntToStr(FormGame.SEChislo.Value));

            Writeln(FS, IntToStr(Kub[1]));

            Writeln(FS, IntToStr(Kub[2]));

         end;

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

       CloseFile(FO); CloseFile(FS);

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

       DeleteFile('1.dat');

     end;

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

     //Выбор  игрока из списка

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

     procedure TFormNew.BOKClick(Sender: TObject);

     begin

       if ListBox.Items.Text='' then exit; //Если список чист

       AssignFile(FO,'Players.dat');

       Reset(FO); //Открытие файла для чтения

       //Чтение количества игроков

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

       //Если игрок выбран то идет  перебор в файле

       if ListBox.ItemIndex<>0 then

         for i:=1 to ListBox.ItemIndex do for j:=1 to 6 do Readln(FO, S);

       //Если доходит очередь до игрока, выбранного из списка, то

       //заполняются значениями объекты окна игры

       with FormGame do begin

         Readln(FO, S); NameGamer:=S;

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

         LKredit.Caption:=IntToStr(Kredit);

         Readln(FO, S); SEStavka.Value:=StrToInt(S); SEStavka.MaxValue:=Kredit;

         Readln(FO, S); SEChislo.Value:=StrToInt(S);

         for i:=1 to 2 do begin Readln(FO, S); Kub[i]:=StrToInt(S); end;

         //Вывод граней кубиков

         ImageTable.Canvas.CopyRect(Rect(11,17,71,77),

           ImageKubik.Canvas, Rect((Kub[1]-1)*60,0,(Kub[1]-1)*60+60,60));

         ImageTable.Canvas.CopyRect(Rect(82,17,142,77),

           ImageKubik.Canvas, Rect((Kub[2]-1)*60,0,(Kub[2]-1)*60+60,60));

         StatusBar.Panels[1].Text:='Выпало: ' + IntToStr(Kub[1]+Kub[2]);

         StatusBar.Panels[0].Text:='';

         StatusBar.Panels[2].Text:='Выигрыш:';

       end;

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

       CloseFile(FO);

       ModalResult:=mrOK;

     end;

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

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

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

     procedure TFormNew.FormCreate(Sender: TObject);

     begin

       ListBox.Clear; //Очистка списка

       try

         AssignFile(FO,'Players.dat');

         Reset(FO); //Открытие файла для чтения

         //Чтение количества игроков в  файле

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

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

           Readln(FO, S);        //Чтение имени игрока

           ListBox.Items.Add(S); //Добавление имени в  список

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

         end;

         CloseFile(FO);    //Закрытие файла

       except

       on EInOutError do begin  //Если файл не существует

         AssignFile(FO,'Players.dat');