Реферат Розрахунок вартості пластикових віконних конструкцій і дверей

'600 'then begin

l: = (SpinEdit1.Value * 0.001) * strtofloat (h600);

podsen: = floattostr (l);

razpod: = '600 '+' x '+ inttostr (SpinEdit1.Value);

if CheckBox1.Checked = true then l: = l +2.1;

z: = strtofloat (Form8.StringGrid2.Cells [6,1]) + l;

Form8.StringGrid2.Cells [6,1]: = floattostr (z);

Form8.StringGrid2.Cells [2,1]: = 'так'; end;

if Combobox1.Text = '700 'then begin

l: = (SpinEdit1.Value * 0.001) * strtofloat (h700);

podsen: = floattostr (l);

razpod: = '700 '+' x '+ inttostr (SpinEdit1.Value);

if CheckBox1.Checked = true then l: = l +2.1;

z: = strtofloat (Form8.StringGrid2.Cells [6,1]) + l;

Form8.StringGrid2.Cells [6,1]: = floattostr (z);

Form8.StringGrid2.Cells [2,1]: = 'так'; end;

if Combobox1.Text = '800 'then begin

l: = (SpinEdit1.Value * 0.001) * strtofloat (h800);

podsen: = floattostr (l);

razpod: = '800 '+' x '+ inttostr (SpinEdit1.Value);

if CheckBox1.Checked = true then l: = l +2.1;

z: = strtofloat (Form8.StringGrid2.Cells [6,1]) + l;

Form8.StringGrid2.Cells [6,1]: = floattostr (z);

Form8.StringGrid2.Cells [2,1]: = 'так'; end;

end else begin Exit;

Showmessage ('Помилка читання файлу ціни'); end; CloseFile (f); Close; end;

if RadioButton1.Checked = True then begin

markP: = 'Moller';

{$ I-}

AssignFile (f, dir + ' Ціни Підвіконня Moller.dat');

{$ I +}

If IOResult = 0 then begin

Reset (f);

while not EoF (f) do begin

readln (f, h150); readln (f, h200);

readln (f, h250); readln (f, h300);

readln (f, h350); readln (f, h400);

readln (f, h450); readln (f, h500);

readln (f, h600); end;

if (Combobox1.Text = '100 ') or (Combobox1.Text = '700') or (Combobox1.Text = '800 ') then

Showmessage ('Такого розміру немає, виберіть інший! ')

else begin

if Combobox1.Text = '150 'then begin

l: = (SpinEdit1.Value * 0.001) * strtofloat (h150);

podsen: = floattostr (l);

razpod: = '150 '+' x '+ inttostr (SpinEdit1.Value);

if CheckBox1.Checked = true then l: = l +2.1;

z: = strtofloat (Form8.StringGrid2.Cells [6,1]) + l;

Form8.StringGrid2.Cells [6,1]: = floattostr (z);

Form8.StringGrid2.Cells [2,1]: = 'так'; end;

if Combobox1.Text = '200 'then begin

l: = (SpinEdit1.Value * 0.001) * strtofloat (h200);

podsen: = floattostr (l);

razpod: = '200 '+' x '+ inttostr (SpinEdit1.Value);

if CheckBox1.Checked = true then l: = l +2.1;

z: = strtofloat (Form8.StringGrid2.Cells [6,1]) + l;

Form8.StringGrid2.Cells [6,1]: = floattostr (z);

Form8.StringGrid2.Cells [2,1]: = 'так'; end;

if Combobox1.Text = '250 'then begin

l: = (SpinEdit1.Value * 0.001) * strtofloat (h250);

podsen: = floattostr (l);

razpod: = '250 '+' x '+ inttostr (SpinEdit1.Value);

if CheckBox1.Checked = true then l: = l +2.1;

z: = strtofloat (Form8.StringGrid2.Cells [6,1]) + l;

Form8.StringGrid2.Cells [0,6]: = floattostr (z);

Form8.StringGrid2.Cells [2,1]: = 'так'; end;

if Combobox1.Text = '300 'then begin

l: = (SpinEdit1.Value * 0.001) * strtofloat (h300);

podsen: = floattostr (l);

razpod: = '300 '+' x '+ inttostr (SpinEdit1.Value);

if CheckBox1.Checked = true then l: = l +2.1;

z: = strtofloat (Form8.StringGrid2.Cells [6,1]) + l;

Form8.StringGrid2.Cells [6,1]: = floattostr (z);

Form8.StringGrid2.Cells [2,1]: = 'так'; end;

if Combobox1.Text = '350 'then begin

l: = (SpinEdit1.Value * 0.001) * strtofloat (h350);

podsen: = floattostr (l);

razpod: = '350 '+' x '+ inttostr (SpinEdit1.Value);

if CheckBox1.Checked = true then l: = l +2.1;

z: = strtofloat (Form8.StringGrid2.Cells [6,1]) + l;

Form8.StringGrid2.Cells [6,1]: = floattostr (z);

Form8.StringGrid2.Cells [2,1]: = 'так'; end;

if Combobox1.Text = '400 'then begin

l: = (SpinEdit1.Value * 0.001) * strtofloat (h400);

podsen: = floattostr (l);

razpod: = '400 '+' x '+ inttostr (SpinEdit1.Value);

if CheckBox1.Checked = true then l: = l +2.1;

z: = strtofloat (Form8.StringGrid2.Cells [6,1]) + l;

Form8.StringGrid2.Cells [6,1]: = floattostr (z);

Form8.StringGrid2.Cells [2,1]: = 'так'; end;

if Com...