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

*после расчета выводим сообщение о результате дня

ShowMessage ('Результатдня:' + IntToStr(w));

end;

*процедура выхода из программы

procedureTForm1. ExitProgramm1Click (Sender: TObject);

begin

ShowMessage ('Good Luck!!!');

Hide;

Form1. Close;

Form2. Close;

end;

*процедура создания нового дилера, использующая Unit 2

procedure TForm1.newDealer1Click (Sender: TObject);

begin

Form1. Visible:= False;

form2. Visible:= true;

Form2. ComboBox1. Items. LoadFromFile ('c:\file.txt');

end;

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

begin

ShowMessage ('Good Luck!!!');

form1. Hide;

end;

*при закрытии программы выводится сообщение:

procedure TForm1. Memo1Click (Sender: TObject);

begin

Button1. Visible:= true;