> end;
if n = 'балкон2' then begin
Label4.Caption: = 'Балконна-поворотно-відкидна двері ';
pay: = strtoint (two);
if odn = '1 'then
pay: = pay-6;
{$ I-}
AssignFile (dop, dir + ' Технічні допуски Поворотно-откідная.dat');
{$ I +}
If IOResult = 0 then begin
Reset (dop);
while not EoF (dop) do begin
readln (dop, minv);
readln (dop, minh);
readln (dop, maxv);
readln (dop, maxh); end; CloseFile (dop); end;
SpinEdit1.MinValue: = strtoint (minh);
SpinEdit1.MaxValue: = strtoint (maxh);
SpinEdit2.MinValue: = strtoint (minv);
SpinEdit2.MaxValue: = strtoint (maxv);
SpinEdit1.Value: = strtoint (minh);
SpinEdit2.Value: = strtoint (minv);
ShowMessage ('Введіть розміри і натисніть "ОК" ');
5: application.ProcessMessages;
if start = true then begin l: = spinedit1.Value;
h: = spinedit2.Value;
plos: = (l * h) * 0.000001;
if plos <= 0.5 then
res: = (plos * pay) + ((plos * pay)/100) * 30
else res: = plos * pay;
if StringGrid1.RowCount
StringGrid1.Cells [0, b]: = 'Балкон. поворот-откід ';
StringGrid1.Cells [1, b]: = floattostr (plos);
StringGrid1.Cells [2, b]: = floattostr (res);
b: = b +1;
start: = false; SpinEdit1.Value: = 0;
SpinEdit2.Value: = 0; end else goto 5; end;
if n = 'Вхід' then begin
Label4.Caption: = 'Вхідні двері';
pay: = strtoint (tri);
if odn = '1 'then
pay: = pay-6;
{$ I-}
AssignFile (dop, dir + ' Технічні допуски Вхідна дверь.dat');
{$ I +}
If IOResult = 0 then begin
Reset (dop);
while not EoF (dop) do begin
readln (dop, minv);
readln (dop, minh);
readln (dop, maxv);
readln (dop, maxh); end; CloseFile (dop); end;
SpinEdit1.MinValue: = strtoint (minh);
SpinEdit1.MaxValue: = strtoint (maxh);
SpinEdit2.MinValue: = strtoint (minv);
SpinEdit2.MaxValue: = strtoint (maxv);
SpinEdit1.Value: = strtoint (minh);
SpinEdit2.Value: = strtoint (minv);
ShowMessage ('Введіть розміри і натисніть "ОК" ');
6: application.ProcessMessages;
if start = true then begin l: = spinedit1.Value;
h: = spinedit2.Value;
plos: = (l * h) * 0.000001;
if plos <= 0.5 then
res: = (plos * pay) + ((plos * pay)/100) * 30
else res: = plos * pay;
if StringGrid1.RowCount
StringGrid1.Cells [0, b]: = 'Вхідні двері';
StringGrid1.Cells [1, b]: = floattostr (plos);
StringGrid1.Cells [2, b]: = floattostr (res);
b: = b +1;
start: = false; SpinEdit1.Value: = 0;
SpinEdit2.Value: = 0; end else goto 6;
end; n: =''; end; end; dob: = b;
ShowMessage ('Розрахунок вартості завершено! ');
SpeedButton3.Visible: = false; SpeedButton9.Visible: = true;
SpeedButton2.Visible: = True; SpeedButton12.Visible: = True; end;
procedure TForm8.SpeedButton3Click (Sender: TObject);
begin start: = true; end;
procedure TForm8.FormCreate (Sender: TObject);
begin e: = 0;
start: = false;
StringGrid2.Cells [0,0]: = 'Площа'; StringGrid2.Cells [1,0]: = 'Монтаж';
StringGrid2.Cells [2,0]: = 'Підвіконня'; StringGrid2.Cells [3,0]: = 'Профіль SO9';
StringGrid2.Cells [4,0]: = 'Тонування'; StringGrid2.Cells [5,0]: = 'Ламін.';
StringGrid2.Cells [6,0]: = 'Підсумок'; end;
procedure TForm8.StringGrid1SelectCell (Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
Label14.Caption: = StringGrid1.Cells [0, ARow];
stol: = Arow; end;
procedure TForm8.SpeedButton4Click (Sender: TObject);
Var sen, sen1: real;
begin
if (label14.Caption = 'Поворотний') or (label14.Caption = 'Відкидний') then
if StringGrid1.Cells [3, stol] <> 'так' then
begin
sen1: = strtofloat (StringGrid1.Cells [2, stol]);
sen: = sen1 +16;
StringGrid1.Cells [2, stol]: = floattostr (sen);
StringGrid1.Cells [3, stol]: = 'так';
ShowMessage ('Розрахунок закінчено!'); end
else Showmessage ('На цьому модулі вже варто маскітка! ')
else Showmessage ('На даний модуль не можна ставити маскітку! '); end;
procedure TForm8.SpeedButton5Click (Sender: TObject);
begin
if Form8.StringGrid2.Cells [5,1] ='...
