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

'Бронза'; 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 [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 [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,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])...