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

*в переменную « l » берём сколько денег было в ячейке StringGrid 3 данного дилера до данного момента времени

l:= StrToInt (StringGrid3. Cells [1, d]);

*здесь просто перезаписываем результат

p:= r+l;

*…и перезаписываем этот результат в ту же ячейку

StringGrid3. Cells [1, d]:= IntToStr(p);

Button3. Enabled:= false;

Button4. Enabled:= false;

end;

end;

for q:= 1 to 40 do begin

w:= w + StrToInt (StringGrid3. Cells [1, q]);

end;\

*сохраняем полученные результаты каждого дилера в отдельном файле в каталоге « Rez » на диске С:\

For dl:= 1 to z do begin

st:= StringGrid3. Cells [0, dl];

y:= StringGrid3. Cells [1, dl];

assignfile (fl, 'c:\rez\' + st +'.txt');

if not fileexists ('c:\rez\' + st +'.txt') then

rewrite(fl)

else append(fl);

writeln (fl, y);

closefile(fl);

end;

assignfile (sav, 'c:\rez\.txt');

if not fileexists ('c:\rez\.txt') then

rewrite(sav)

else append(sav);

writeln (sav, IntToStr(w));