Отчет по практике: Программа для подсчета выручки казино

{Public declarations}

end;

var

Form1: TForm1;

implementation

uses Math, Unit2;

{$R *.dfm}

Var

*здесь вводится глобальная переменная для хранения количества дилеров на данный день

z: integer=1;

procedure TForm1. BitBtn1Click (Sender: TObject);

begin

StringGrid1. Visible:= true;

StringGrid2. Visible:= false;

end;

procedure TForm1. Button2Click (Sender: TObject);

begin

StringGrid1. Visible:= False;

StringGrid2. Visible:= True;

end;

procedure TForm1. FormClick (Sender: TObject);

begin

if StringGrid2. Cells [5,5]='fil' then Button4. Visible:= true;

end;

end.

procedure TForm1. Button4Click (Sender: TObject);

*делаем проверку программы, данное событие возможно только в том случае, если в stringGrid 2 в ячейке [5,5] написано слово « fil » и «клик» по форме (появляется кнопка « GO !!!»)

*при нажатии на которую «рандомно» заполняются поля « Dealers » и « Money »: