{ *** Cyklus načtení hodnot do matic *** }
for i := 1 to pocmer do
begin
k:=0;
for j := 1 to pocetmist do
begin
read(F2, recF2);
if (j=1) then
begin
matice[8+i,j]:=recF2.cas1;
if flagexportall then maticeEL[8+i,j]:=recF2.cas1;
end;
if (j>=lou) and (j<=haj) then k:=k+1;
matice[8+i,k+1]:=recF2.mfyz1;
if flagexportall then maticeEL[8+i,k+1]:=recF2.mdat1;
end; //j
end; //i
{ *** Nakopírování naměřených hodnot do listu *** }
listfyz.Range[listfyz.cells[1,1], listfyz.cells[pocmer+8,haj+1]].Value := Matice;
{ *** Nakopírování elektrických hodnot do listu *** }
if flagexportall then listEL.Range[listEL.cells[1,1], listEL.cells[pocmer+8,haj+1]].Value := MaticeEL;
VarClear(matice);
VarClear(maticeEL);
{ *** Nakopírování vzorců do listu *** }
listfyz.Range[listfyz.Cells[4, 2], listfyz.Cells[4, haj - lou + 2]].FormulaR1C1:= '=AVERAGE(R[+5]C:R' + Trim(IntToStr(Pocmer+8)) + 'C)';
listfyz.Range[listfyz.Cells[5, 2], listfyz.Cells[5, haj - lou + 2]].FormulaR1C1:= '=MIN(R[+4]C:R' + Trim(IntToStr(Pocmer+8)) + 'C)';
listfyz.Range[listfyz.Cells[6, 2], listfyz.Cells[6, haj - lou + 2]].FormulaR1C1:= '=MAX(R[+3]C:R' + Trim(IntToStr(Pocmer+8)) + 'C)';
listfyz.Range['A8'].FormulaR1C1:= '=Count(R9C2:R' + Trim(IntToStr(Pocmer+8)) + 'C2)';
listfyz.Range[listfyz.Cells[7, 2], listfyz.Cells[7, haj - lou + 2]].FormulaR1C1:= '=STDEV(R[+2]C:R' + Trim(IntToStr(Pocmer+8)) + 'C)/SQRT(R8C1)'; // + inttostr(pocmer);
...