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

#39;450';

StringGrid3.Cells [0,9]: = '500 '; StringGrid3.Cells [0,10]: = '600';

StringGrid3.Cells [0,11]: = '700 '; StringGrid3.Cells [0,12]: = '800';

StringGrid3.Cells [1,2]: = '10, 6 '; StringGrid3.Cells [1,3]: = '12, 1';

StringGrid3.Cells [1,4]: = '14, 5 '; StringGrid3.Cells [1,5]: = '16, 8';

StringGrid3.Cells [1,6]: = '19, 7 '; StringGrid3.Cells [1,7]: = '22, 4';

StringGrid3.Cells [1,8]: = '25, 4 '; StringGrid3.Cells [1,9]: = '31, 9';

StringGrid3.Cells [1,10]: = '35, 9 '; StringGrid3.Cells [2,1]: = '3, 8';

StringGrid3.Cells [2,2]: = '5, 7 '; StringGrid3.Cells [2,3]: = '7, 6';

StringGrid3.Cells [2,4]: = '9, 5 '; StringGrid3.Cells [2,5]: = '11, 5';

StringGrid3.Cells [2,6]: = '13, 4 '; StringGrid3.Cells [2,7]: = '15, 3';

StringGrid3.Cells [2,8]: = '17, 2 '; StringGrid3.Cells [2,9]: = '19, 1';

StringGrid3.Cells [2,10]: = '21 '; StringGrid3.Cells [2,11]: = '22, 9';

StringGrid3.Cells [2,12]: = '30, 5 '; end;

procedure TForm21.SpeedButton2Click (Sender: TObject);

Var s: string; f: textfile;

begin

{$ I-}

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

{$ I +}

If IOResult = 0 then

s: = dir + ' Ціни Підвіконня ';

{$ I-}

Rewrite (f, s + 'Moller.dat');

{$ I +}

If IOResult = 0 then begin

Writeln (f, StringGrid3.Cells [1,2]); Writeln (f, StringGrid3.Cells [1,3]);

Writeln (f, StringGrid3.Cells [1,4]); Writeln (f, StringGrid3.Cells [1,5]);

Writeln (f, StringGrid3.Cells [1,6]); Writeln (f, StringGrid3.Cells [1,7]);

Writeln (f, StringGrid3.Cells [1,8]); Writeln (f, StringGrid3.Cells [1,9]);

Writeln (f, StringGrid3.Cells [1,10]); CloseFile (f);

Rewrite (f, s + 'Ultra.dat'); Writeln (f, StringGrid3.Cells [2,1]);

Writeln (f, StringGrid3.Cells [2,2]); Writeln (f, StringGrid3.Cells [2,3]);

Writeln (f, StringGrid3.Cells [2,4]); Writeln (f, StringGrid3.Cells [2,5]);

Writeln (f, StringGrid3.Cells [2,6]); Writeln (f, StringGrid3.Cells [2,7]);

Writeln (f, StringGrid3.Cells [2,8]); Writeln (f, StringGrid3.Cells [2,9]);

Writeln (f, StringGrid3.Cells [2,10]); Writeln (f, StringGrid3.Cells [2,11]);

Writeln (f, StringGrid3.Cells [2,12]); CloseFile (f);

ShowMessage ('Дані збережені успішно!'); end else begin

Exit; ShowMessage ('Помилка при зіпісі в файл!'); end; end;

procedure TForm21.SpeedButton1Click (Sender: TObject);

begin Close; end; end.

unit Unit22;

interface

uses

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

Dialogs, StdCtrls, Grids, Buttons, jpeg, Unit1, ExtCtrls;

type

TForm22 = class (TForm)

Image1: TImage; StringGrid1: TStringGrid; Label1: TLabel; Label2: TLabel;

StringGrid2: TStringGrid; StringGrid3: TStringGrid; Label3: TLabel;

SpeedButton2: TSpeedButton; SpeedButton1: TSpeedButton;

procedure FormCreate (Sender: TObject);

procedure SpeedButton2Click (Sender: TObject);

procedure SpeedButton1Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations} end;

var Form22: TForm22;

implementation

uses Unit13;

{$ R *. dfm}

procedure TForm22.FormCreate (Sender: TObject);

begin

StringGrid1.Cells [0,0]: = 'Назва'; StringGrid1.Cells [1,0]: = 'Колір';

StringGrid1.Cells [0,1]: = 'R Silver 20 '; StringGrid1.Cells [0,2]: =' R Silver 35 ';

StringGrid1.Cells [0,3]: = 'R Silver 50 '; StringGrid1.Cells [0,4]: =' R Grey 10 ';

StringGrid1.Cells [0,5]: = 'R Blue 15 '; StringGrid1.Cells [0,6]: =' R Gold 15 ';

StringGrid1.Cells [0,7]: = 'R Green 10 '; StringGrid1.Cells [0,8]: =' R Bronze 10 ';

StringGrid1.Cells [0,9]: = 'HP Natural 20 '; StringGrid1.Cells [0,10]: =' HP Natural 35 ';

StringGrid1.Cells [0,11]: = 'HP Bronze 35 '; StringGrid1.Cells [0,12]: =' HP Blue 35 ';

StringGrid1.Cells [0,13]: = 'HP Green 30 '; StringGrid1.Cells [1,1]: =' Срібло ';

StringGrid1.Cells [1,2]: = 'Срібло'; StringGrid1.Cells [1,3]: = 'Срібло';

StringGrid1.Cells [1,4]: = 'Сірий'; StringGrid1.Cells [1,5]: = 'Блакитний';

StringGrid1.Cells [1,6]: = 'Золото'; StringGrid1.Cells [1,7]: = 'Зелений';

StringGrid1.Cells [1,8]: = ...