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

bobox1.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 = '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; Close

end; end else begin Exit; Showmessage ('Помилка читання файлу ціни'); end;

CloseFile (f); end; end; end; end.

unit Unit19;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Buttons, StdCtrls, unit8, Spin, jpeg, ExtCtrls;

type

TForm19 = class (TForm)

Image1: TImage; Label13: TLabel; SpinEdit1: TSpinEdit; SpeedButton8: TSpeedButton;

Label1: TLabel; procedure SpeedButton8Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations} end;

var Form19: TForm19;

implementation

{$ R *. dfm}

procedure TForm19.SpeedButton8Click (Sender: TObject);

Var pl, sum: real; k: integer;

begin

if Form8.StringGrid2.Cells [3,1] <> 'так' then

begin

pl: = strtofloat (Form8.StringGrid2.Cells [6,1]);

sum: = SpinEdit1.Value * 0.003;

sum: = pl + sum;

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

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

Close; endelse Showmessage ('На цьому вікні профіль вже врахований!') end; end.

unit Unit20;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Buttons, StdCtrls, Spin, jpeg, ExtCtrls;

type

TForm20 = class (TForm)

Image1: TImage; Label13: TLabel; SpinEdit1: TSpinEdit; Label1: TLabel;

SpeedButton8: TSpeedButton; procedure SpeedButton8Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations} end;

var Form20: TForm20;

implementation

uses Unit8;

{$ R *. dfm}

procedure TForm20.SpeedButton8Click (Sender: TObject);

Var pl, sum: real; k: integer;

begin

pl: = strtofloat (Form8.StringGrid2.Cells [6,1]);

sum: = SpinEdit1.Value * 0.025;

sum: = pl + sum;

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

if (Components [k] is TSpinEdit) then

(Components [k] as TSpinEdit). Value: = 0; Close end; end. br/>

unit Unit21; ​​

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, Buttons, jpeg, unit1, ExtCtrls;

type

TForm21 = class (TForm)

StringGrid3: TStringGrid; Image1: TImage; SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton; procedure FormCreate (Sender: TObject);

procedure SpeedButton2Click (Sender: TObject);

procedure SpeedButton1Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations} end;

var Form21: TForm21;

implementation

{$ R *. dfm}

procedure TForm21.FormCreate (Sender: TObject);

begin

StringGrid3.Cells [0,0]: = 'Ширина';

StringGrid3.Cells [1,0]: = 'Moller (Німеччина)';

StringGrid3.Cells [2,0]: = 'Ulьtra (Ростов)';

StringGrid3.Cells [0,1]: = '100 '; StringGrid3.Cells [0,2]: = '150';

StringGrid3.Cells [0,3]: = '200 '; StringGrid3.Cells [0,4]: = '250';

StringGrid3.Cells [0,5]: = '300 '; StringGrid3.Cells [0,6]: = '350';

StringGrid3.Cells [0,7]: = '400 '; StringGrid3.Cells [0,8]: = &...