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

)

then Showmessage ('Спочатку небудь потрібно вибрати! ')

else

if (Combobox1.Text ='') or (SpinEdit1.Value <= 0) then

Showmessage ('Введіть всі необхідні дані! ')

else begin

if RadioButton2.Checked = True then begin

markP: = 'Ulьtra';

{$ I-}

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

{$ I +}

If IOResult = 0 then begin Reset (f);

while not EoF (f) do begin

readln (f, h100); 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);

readln (f, h700); readln (f, h800); end;

if Combobox1.Text = '100 'then begin

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

podsen: = floattostr (l);

razpod: = '100 '+' 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 = '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 [6,1]: = 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 Combobox1.Text = '450 'then begin

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

podsen: = floattostr (l);

razpod: = '450 '+' 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 = '500 'then begin

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

podsen: = floattostr (l);

razpod: = '500 '+' 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 = ...