Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Курсовые проекты » Розрахунок вартості пластикових віконних конструкцій і дверей

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





Edit3.Text: = floattoStr (evro * kursE); end;

If RadioButton3.Checked = True then begin

kursE: = Strtofloat (Edit1.Text);

kursD: = Strtofloat (Edit2.Text);

evro: = Strtofloat (Edit5.Text);

Edit4.Text: = floattoStr ((evro * kursE)/kursD); end; end;

procedure TForm9.Edit1KeyPress (Sender: TObject; var Key: Char);

var vrPos, vrLength, vrSelStart: byte;

const I: byte = 1;

begin

with Sender as TEdit do

begin

vrLength: = Length (Text);

vrPos: = Pos (',', Text);

vrSelStart: = SelStart; end;

case Key of '0 '.. '9':

begin

if (vrPos> 0) and (vrLength - vrPos> I) and (vrSelStart> = vrPos) then

Key: = # 0;

end; ',', '.':

begin

if (vrPos> 0) or (vrSelStart = 0) or (vrLength = 0) then

Key: = # 0 else Key: = # 44; end; # 8:; else Key: = # 0; end; end;

procedure TForm9.Edit2KeyPress (Sender: TObject; var Key: Char);

var vrPos, vrLength, vrSelStart: byte;

const I: byte = 1;

begin

with Sender as TEdit do

begin

vrLength: = Length (Text);

vrPos: = Pos (',', Text);

vrSelStart: = SelStart; end;

case Key of '0 '.. '9':

begin

if (vrPos> 0) and (vrLength - vrPos> I) and (vrSelStart> = vrPos) then

Key: = # 0; end; ',', '.':

begin

if (vrPos> 0) or (vrSelStart = 0) or (vrLength = 0) then

Key: = # 0 else Key: = # 44; end; # 8:; else Key: = # 0; end; end;


procedure TForm9.Edit3KeyPress (Sender: TObject; var Key: Char);

var vrPos, vrLength, vrSelStart: byte;

const I: byte = 1;

begin

with Sender as TEdit do

begin

vrLength: = Length (Text);

vrPos: = Pos (',', Text);

vrSelStart: = SelStart; end;

case Key of '0 '.. '9':

begin

if (vrPos> 0) and (vrLength - vrPos> I) and (vrSelStart> = vrPos) then

Key: = # 0; end; ',', '.':

begin

if (vrPos> 0) or (vrSelStart = 0) or (vrLength = 0) then Key: = # 0

else Key: = # 44; end; # 8:; else Key: = # 0; end; end;

procedure TForm9.Edit4KeyPress (Sender: TObject; var Key: Char);

var vrPos, vrLength, vrSelStart: byte;

const I: byte = 1;

begin

with Sender as TEdit do

begin

vrLength: = Length (Text);

vrPos: = Pos (',', Text);

vrSelStart: = SelStart; end;

case Key of '0 '.. '9':

begin

if (vrPos> 0) and (vrLength - vrPos> I) and (vrSelStart> = vrPos) then

Key: = # 0; end; ',', '.':

begin

if (vrPos> 0) or (vrSelStart = 0) or (vrLength = 0) then

Key: = # 0 else Key: = # 44; end; # 8:; else Key: = # 0; end; end;

procedure TForm9.Edit5KeyPress (Sender: TObject; var Key: Char);

var vrPos, vrLength, vrSelStart: byte;

const I: byte = 1;

begin

with Sender as TEdit do

begin

vrLength: = Length (Text);

vrPos: = Pos (',', Text);

vrSelStart: = SelStart; end;

case Key of '0 '.. '9':

begin

if (vrPos> 0) and (vrLength - vrPos> I) and (vrSelStart> = vrPos) then

Key: = # 0; end; ',', '.':

begin

if (vrPos> 0) or (vrSelStart = 0) or (vrLength = 0) then

Key: = # 0 else Key: = # 44; end; # 8:; else Key: = # 0; end; end; end. br/>

unit Unit10;

interface

uses

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

Dialogs, QRCtrls, QuickRpt, ExtCtrls, StdCtrls, QRPrntr, ImgList, Buttons,

RpBase, RpSystem, RpDefine, RpRave;

type

TForm10 = class (TForm)

QuickRep1: TQuickRep; QRSubDetail1: TQRSubDetail; QRLabel5: TQRLabel;

QRRichText1: TQRRichText; QRLabel1: TQRLabel; QRLabel2: TQRLabel;

QRLabel3: TQRLabel; QRImage1: TQRImage; QRImage2: TQRImage;

QRImage3: TQRImage; QRImage4: TQRImage; QRImage5: TQRImage;

QRImage6: TQRImage; Image1: TImage; SpeedButton2: TSpeedButton;

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

procedure SpeedButton1Click (Sender: TObject);

procedure SpeedButton2Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var Form10: TForm10; nzak: integer;

implementation

uses Unit1, unit7;

{$ R *. dfm}

procedure TForm10.FormCreate (Sender: TObject);

begin QrrichText1.ParentRichEdit: = Form1.RichEdit1; end;

procedure TForm10.SpeedButton1Click ...


Назад | сторінка 21 з 32 | Наступна сторінка





Схожі реферати:

  • Реферат на тему: Creation of control system by a personnel how to begin with a zero
  • Реферат на тему: Phonetic peculiarities of the popular science text
  • Реферат на тему: Grammar of the Text: its Basic Units and Main Features (based on the novel ...
  • Реферат на тему: Технології аналізу даних (Text Mining, Data Mining)
  • Реферат на тему: Procedure of preparation business-plan