ColCount: = PZ +1; i: = 1 to PZ do StringGrid3.Cells [i, 1]: = FloatToStr (Kod_PZ [i]); i: = 1 to PZ do StringGrid3.Cells [i, 2]: = FloatToStr (Kol_PZ [i]);. ColCount: = Emkost; i: = 1 to Emkost do StringGrid4.Cells [i, 0]: = IntToStr (i); i: = 1 to Emkost do StringGrid4.Cells [i, 1]: = IntToStr (KodSklad [i]);
StringGrid4.Cells [0,0]: = '¹ ¹';. Cells [0,1]: = 'ÄÓ';
end;: = true;;; TForm1.Button6Click (Sender: TObject); (handle, 'open', '1. exe ', nil, nil, SW_SHOW);;.
