сі поля введення.';; Count: = 1 to stringgrid2.RowCount do (edit3.Text = stringgrid2.Cells [0, Count]) then: = false;; boo then (stringgrid2.RowCount = 2) and (stringgrid2.Cells [0,1] ='') then.RowCount: = stringgrid2.RowCount.RowCount: = stringgrid2.RowCount + 1;. Cells [0, stringgrid2.RowCount - 1]: = edit3.Text;. Cells [1, stringgrid2.RowCount - 1]: = edit4.Text;
label5.Caption: = 'Продукт доданий!';
edit3.SetFocus ();. Caption: = 'Такий продукт вже є';; TForm1.BitBtn9C lick (Sender: TObject); Count, i: integer;: boolean;: = true; Count: = 1 to stringgrid2.RowCount do (edit3.Text = stringgrid2.Cells [0, Count]) then: = Count;: = false;;; boo then
label5.Caption: = 'Такого продукту немає у списку!';
end.Rows [i]. Clear; Count: = i to stringgrid2.RowCount-1 do.Cells [0, Count]: = stringgrid2.Cells [0, Count +1];. Cells [1, Count]: = stringgrid2.Cells [1, Count +1];;. RowCount: = stringgrid2.RowCount -1;. Caption: = 'Продукт стертий.';;; TForm1.BitBtn8Click (Sender: TObject); Count, i: integer;: boolean;: = true; Count: = 1 to stringgrid2.RowCount do (edit3.Text = stringgrid2.Cells [0, Count]) then: = Count;: = false;;; boo then
label5.Caption: = 'Такого продукту немає у списку!';
end.Cells [0, i]: = edit3.Text;. Cells [1, i]: = edit4.Text;
label5.Caption: = 'Продукт змінений.';
end;; TForm1.StringGrid2Click (Sender: TObject); i: integer;: = stringgrid2.Row;. Text: = stringgrid2.Cells [0, i];. Text: = stringgrid2.Cells [1, i];. Caption: ='';; TForm1.StringGrid3KeyPress (Sender: TObject; var Key: Char); key of
# 8:;
# 13:;
'0 '.. '9':;
# 110:;
',':;
# 46:; key: = # 0;;; TForm1.BitBtn11Click (Sender: TObject); form1.RadioButton2.Checked then (True) (True);; TForm1.BitBtn10Click (Sender: TObject ); form1.RadioButton2.Checked then (False) (False);;
// заповнюємо витрати ();. Cells [2,2]: = '2 ';. Cells [2,3]: = '1';. Cells [2,4]: = '7 ';. Cells [2,5]: = '4';. Cells [3,2]: = '4 ';. Cells [3,3]: = '8';. Cells [3,4] : = '4 ';. Cells [3,5]: = '6';. Cells [4,2]: = '5 ';. Cells [4,3]: = '6';. Cells [4, 4]: = '5 '; 3.Cells [4,5]: = '7';
// заповнюємо і виконуємо
bitBtn5.Enabled: = true; Proverka () then.Visible: = false;. Visible: = true;. Visible: = true;. Visible: = true;. Caption: = '< Відповідь> '; ();;; TForm1.Button2Click (Sender: TObject);. Visible: = false;. Visible: = false;. Caption: =' Далі -> ';. Enabled: = true;. Visib...
