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

in

vrLength: = Length (Text);

vrSelStart: = SelStart;

end;

case Key of 'А' .. 'Я': begin end;

'а' .. 'я': begin end;

# 8: begin end;

# 32: begin end;

# 46:

else

Key: = # 0;// "погасити" все решта клавіш end; end;

procedure TForm1.SpeedButton8Click (Sender: TObject);

begin RichEdit1.Print ('Друк звіту'); end;

procedure TForm1.SpeedButton14Click (Sender: TObject);

begin if RichEdit1.Text <>'' then begin

form10.qrimage1.Picture.LoadFromFile (dir + ' temp ' + '1. bmp ');

form10.qrimage2.Picture.LoadFromFile (dir + ' temp ' + '2. bmp ');

form10.qrimage3.Picture.LoadFromFile (dir + ' temp ' + '3. bmp ');

form10.qrimage4.Picture.LoadFromFile (dir + ' temp ' + '4. bmp ');

form10.qrimage5.Picture.LoadFromFile (dir + ' temp ' + '5. bmp ');

form10.qrimage6.Picture.LoadFromFile (dir + ' temp ' + '6. bmp ');

form10.Show; end

else Showmessage ('Спочатку створіть звіт!'); end; end.

unit Unit2;

interface

uses

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

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

type

TForm2 = class (TForm)

Image1: TImage; GroupBox1: TGroupBox; Label1: TLabel;

Label2: TLabel; Label3: TLabel; Label4: TLabel;

Label5: TLabel; Label6: TLabel; Label7: TLabel;

Label8: TLabel; Label9: TLabel; SpinEdit1: TSpinEdit;

SpinEdit2: TSpinEdit; SpinEdit3: TSpinEdit; SpinEdit4: TSpinEdit;

SpinEdit5: TSpinEdit; SpinEdit6: TSpinEdit; SpinEdit7: TSpinEdit;

SpinEdit8: TSpinEdit; SpinEdit9: TSpinEdit; SpinEdit10: TSpinEdit;

SpinEdit11: TSpinEdit; SpinEdit12: TSpinEdit; GroupBox2: TGroupBox;

Label10: TLabel; Label11: TLabel; Label12: TLabel; Label13: TLabel;

Label14: TLabel; Label15: TLabel; Label16: TLabel; Label17: TLabel;

Label18: TLabel; SpinEdit13: TSpinEdit; SpinEdit14: TSpinEdit;

SpinEdit15: TSpinEdit; SpinEdit16: TSpinEdit; SpinEdit17: TSpinEdit;

SpinEdit18: TSpinEdit; SpinEdit19: TSpinEdit; SpinEdit20: TSpinEdit;

SpinEdit21: TSpinEdit; SpinEdit22: TSpinEdit; SpinEdit23: TSpinEdit;

SpinEdit24: TSpinEdit; SpeedButton4: TSpeedButton; SpeedButton3: TSpeedButton;

SpeedButton2: TSpeedButton; SpeedButton1: TSpeedButton;

SpeedButton6: TSpeedButton; SpeedButton7: ​​TSpeedButton;

procedure SpeedButton1Click (Sender: TObject);

procedure SpeedButton2Click (Sender: TObject);

procedure SpeedButton3Click (Sender: TObject);

procedure SpeedButton4Click (Sender: TObject);

procedure SpeedButton6Click (Sender: TObject);

procedure SpeedButton7Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var Form2: TForm2;

implementation

uses Unit13, Unit14, Unit21, Unit22;

{$ R *. dfm}

procedure TForm2.SpeedButton1Click (Sender: TObject);

begin close; end;

procedure TForm2.SpeedButton2Click (Sender: TObject);

Var s: string;

f: textfile;

begin

{$ I-}

AssignFile (f, dir + ' Ціни Вікна');

{$ I +}

If IOResult = 0 then begin

s: = dir + ' Ціни Вікна';

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

Writeln (f, SpinEdit1.Value);

Writeln (f, SpinEdit2.Value);

Writeln (f, SpinEdit3.Value);

CloseFile (f);

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

Writeln (f, SpinEdit4.Value);

Writeln (f, SpinEdit5.Value);

Writeln (f, SpinEdit6.Value);

CloseFile (f);

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

Writeln (f, SpinEdit7.Value);

Writeln (f, SpinEdit8.Value);

Writeln (f, SpinEdit9.Value);

CloseFile (f);

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

Writeln (f, SpinEdit10.Value);

Writeln (f, SpinEdit11.Value);

Writeln (f, SpinEdit12.Value);

CloseFile (f);

end else Exit;

{$ I-}

AssignFile (f, dir + ' Ціни Двері');

{$ I +}

If IOResult = 0 then begin

s: = dir + ' Ціни Двері';

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

Writeln (f, SpinEdit13.Value);

Writeln (f, SpinEdit14.Value);

Writeln (f, SpinEdit15.Value);

CloseFile (f);

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

Writeln (f, SpinEdit16.Value);

Writeln (f, SpinEdit17.Value)...