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 ...