Geum.ru

Расчет стоимости пластиковых оконных конструкций и дверей

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

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[2,0]:=Светопропуск;StringGrid1.Cells[3,0]:=Цена(1м.кв);

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]:=Бронза;StringGrid1.Cells[1,9]:=Нейтральный;

StringGrid1.Cells[1,10]:=Нейтральный;StringGrid1.Cells[1,11]:=Бронза;

StringGrid1.Cells[1,12]:=Голубой;StringGrid1.Cells[1,13]:=Зеленый;

StringGrid1.Cells[2,1]:=18;StringGrid1.Cells[2,2]:=28;StringGrid1.Cells[2,3]:=47;

StringGrid1.Cells[2,4]:=7;StringGrid1.Cells[2,5]:=15;StringGrid1.Cells[2,6]:=15;

StringGrid1.Cells[2,7]:=10;StringGrid1.Cells[2,8]:=8;StringGrid1.Cells[2,9]:=24;

StringGrid1.Cells[2,10]:=35;StringGrid1.Cells[2,11]:=37;StringGrid1.Cells[2,12]:=35;

StringGrid1.Cells[2,13]:=30;StringGrid1.Cells[3,1]:=14,3;StringGrid1.Cells[3,2]:=15,3;

StringGrid1.Cells[3,3]:=15,3;StringGrid1.Cells[3,4]:=15,3;StringGrid1.Cells[3,5]:=15,3;

StringGrid1.Cells[3,6]:=15,3;StringGrid1.Cells[3,7]:=15,3;

StringGrid1.Cells[3,8]:=15,3;StringGrid1.Cells[3,9]:=19,1;

StringGrid1.Cells[3,10]:=19,1;StringGrid1.Cells[3,11]:=19,1;

StringGrid1.Cells[3,12]:=19,1;StringGrid1.Cells[3,13]:=19,1;

StringGrid2.Cells[0,0]:=Название;StringGrid2.Cells[1,0]:=Цвет;

StringGrid2.Cells[2,0]:=Светопропуск;StringGrid2.Cells[3,0]:=Цена(1м.кв);

StringGrid2.Cells[0,1]:=Matt White;StringGrid2.Cells[0,2]:=Matt Bronze;

StringGrid2.Cells[0,3]:=Matt Silver;StringGrid2.Cells[0,4]:=Black Out;

StringGrid2.Cells[1,1]:=Белый;StringGrid2.Cells[1,2]:=Бронза;

StringGrid2.Cells[1,3]:=Серебро;StringGrid2.Cells[1,4]:=Черный;

StringGrid2.Cells[2,1]:=69;StringGrid2.Cells[2,2]:=36;

StringGrid2.Cells[2,3]:=16;StringGrid2.Cells[2,4]:=0;

StringGrid2.Cells[3,1]:=15,3;StringGrid2.Cells[3,2]:=15,3;

StringGrid2.Cells[3,3]:=15,3;StringGrid2.Cells[3,4]:=17,5;

StringGrid3.Cells[0,0]:=Название;StringGrid3.Cells[1,0]:=Цвет;

StringGrid3.Cells[2,0]:=Светопропуск;StringGrid3.Cells[3,0]:=Цена(1м.кв);

StringGrid3.Cells[0,1]:=100MIC Silver 20;StringGrid3.Cells[0,2]:=Safety 2 MIL;

StringGrid3.Cells[0,3]:=Safety 4 MIL;StringGrid3.Cells[0,4]:=Safety 7 MIL;

StringGrid3.Cells[0,5]:=Класс защиты А1;StringGrid3.Cells[0,6]:=Класс защиты А2;

StringGrid3.Cells[0,7]:=Класс защиты А3;StringGrid3.Cells[0,8]:=Стекло 4мм;

StringGrid3.Cells[1,1]:=Серебро;StringGrid3.Cells[1,2]:=Прозрачная;

StringGrid3.Cells[1,3]:=Прозрачная;StringGrid3.Cells[1,4]:=Прозрачная;

StringGrid3.Cells[1,8]:=Бронза в массе;StringGrid3.Cells[2,1]:=20;

StringGrid3.Cells[2,2]:=98;StringGrid3.Cells[2,3]:=89;

StringGrid3.Cells[2,4]:=89;StringGrid3.Cells[3,1]:=32,3;

StringGrid3.Cells[3,2]:=24,9;StringGrid3.Cells[3,3]:=27;

StringGrid3.Cells[3,4]:=32,3;StringGrid3.Cells[3,5]:=39,7;

StringGrid3.Cells[3,6]:=52,9;StringGrid3.Cells[3,7]:=79,4;

StringGrid3.Cells[3,8]:=24,4;end;

procedure TForm22.SpeedButton2Click(Sender: TObject);

Var s:string;f:textfile;begin{$I-}

AssignFile(f,dir+\Цены\Тонировка\);{$I+}

If IOResult=0 then s:=dir+\Цены\Тонировка\;{$I-}

Rewrite(f,s+Prof.dat); {$I+} If IOResult=0 then begin

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

Writeln(f,StringGrid1.Cells[3,3]);Writeln(f,StringGrid1.Cells[3,4]);

Writeln(f,StringGrid1.Cells[3,5]);Writeln(f,StringGrid1.Cells[3,6]);

Writeln(f,StringGrid1.Cells[3,7]);Writeln(f,StringGrid1.Cells[3,8]);

Writeln(f,StringGrid1.Cells[3,9]);Writeln(f,StringGrid1.Cells[3,10]);

Writeln(f,StringGrid1.Cells[3,11]);Writeln(f,StringGrid1.Cells[3,12]);

Writeln(f,StringGrid1.Cells[3,13]);CloseFile(f);Rewrite(f,s+Dekor.dat);

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

Writeln(f,StringGrid2.Cells[3,3]);Writeln(f,StringGrid2.Cells[3,4]);

CloseFile(f);Rewrite(f,s+Udar.dat);Writeln(f,StringGrid3.Cells[3,1]);

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

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

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

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

ShowMessage(Данные сохранены успешно!);end else beginExit;

ShowMessage(Ошибка при зиписи в файл!);end;end;

procedure TForm22.SpeedButton1Click(Sender: TObject);

begin Close;end;end.