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

StringGrid3. Cells [0, z]:= ComboBox3. Text;

Inc (z);

End;

Procedure TForm1. FormCreate (Sender: TObject);

Var

o, x, i, q: integer;

Begin

Button4. Visible:= false;

* здесь заполняем строки ComboBox загрузкой из файла «File.txt», расположенного в корне диска С

Form1. ComboBox3. Items. LoadFromFile ('c:\file.txt');

i:= 0;

for q:=1 to 40

do begin

* озаглавливаем String Grid 1, 2, 3.

StringGrid3. Cells [1, q]:= '0';

end;

StringGrid3. Cells [1,0]:= 'total';

StringGrid2. Cells [0,0]:= 'Dealers';

StringGrid1. Cells [0,0]:= 'money';

StringGrid2. ColCount:= 38;

StringGrid2. Cells [0,1]:= 'AR';

StringGrid2. Cells [0,2]:= 'BJ';

StringGrid2. Cells [0,3]:= 'OP1';

StringGrid2. Cells [0,4]:= 'OP2';

StringGrid2. Cells [0,5]:= 'OP3';

StringGrid1. ColCount:=38;

StringGrid1. Cells [0,1]:= 'AR';

StringGrid1. Cells [0,2]:= 'BJ';

StringGrid1. Cells [0,3]:= 'OP1';