: , .
: . (Edit) (ltadioButton, ), ( . 1).
:
: | |
unit Unit1; | |
interface | |
uses | |
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; | |
type | TFORM1 |
TForm1 = class(TForm) | |
RadioButton1: TRadioButton; | |
RadioButton2: TRadioButton; | |
Label1: TLabel; | |
Label2: TLabel; | |
Button1: TButton; | |
Button2: TButton; | |
Label4: TLabel; | |
Label5: TLabel; | |
Edit1: TEdit; | |
Edit3: TEdit; | |
Edit2: TEdit; | |
Edit4: TEdit; | |
Button3: TButton; | |
Button4: TButton; | |
procedure RadioButton2Click(Sender: TObject); | -, RadioButton2 |
procedure Button2Click(Sender: TObject); | , Button2 |
procedure Button1Click(Sender: TObject); | , Button1 |
procedure RadioButton1Click(Sender: TObject); | -, RadioButton1 |
procedure Button3Click(Sender: TObject); | , Button3 |
procedure Label4Click(Sender: TObject); | , Label4 |
procedure Button4Click(Sender: TObject); | , Button1 |
private | |
{ Private declarations } | |
public | |
{ Public declarations } | |
end; | Tform1 |
var | |
Form1: TForm1; | |
kurs1, kurs2, summa: real; cod: integer; ed: string[9]; | 1-, 2-, , Val (Edit3.Text, summa, cod); SUMMA, Edit4.Text:= ed; |
implementation | |
uses Unit2; | |
{$R *.dfm} | |
procedure TForm1.RadioButton2Click(Sender: TObject); | |
begin | |
Label4.Caption:= ''; | Label4 '' |
Edit3.SetFocus; | EDIT3 |
end; | |
procedure TForm1.Button2Click(Sender: TObject); | |
begin | |
Close; | , |
end; | |
procedure TForm1.Button1Click(Sender: TObject); | |
begin | |
Val (Edit1.Text, kurs1, cod); | Edit1.Text kurs1, - cod |
Val (Edit2.Text, kurs2, cod); | Edit12.Text kurs1, - cod |
Val (Edit3.Text, summa, cod); | Edit3.Text kurs1, - cod |
if RadioButton2.Checked = True then summa:= summa * kurs2 else summa:= summa * kurs1; | , - |
summa:=summa-summa/100; | 1% |
Str(summa:9:2, ed); Edit4.Text:= ed; | Summa Ed |
end; | |
procedure TForm1.RadioButton1Click(Sender: TObject); | |
begin | |
Label4.Caption:= ''; | |
Edit3.SetFocus; | |
end; | |
procedure TForm1.Button3Click(Sender: TObject); | |
begin | |
Edit1.Text:=' '; | |
Edit2.Text:=' '; | |
edit3.Text:=' '; | |
Edit4.Text:=' '; | |
end; | |
procedure TForm1.Label4Click(Sender: TObject); | |
begin | |
if RadioButton2.Checked=false then | |
begin | |
Label4.Caption:=''; | |
RadioButton1.Checked:=False; | |
RadioButton2.Checked:=True; | |
end | |
else | |
begin | |
Label4.Caption:=''; | |
RadioButton1.Checked:=True; | |
RadioButton2.Checked:=False; | |
end; | |
end; | |
procedure TForm1.Button4Click(Sender: TObject); | |
begin | |
Form1.hide; | |
Form2.Show; | |
end; | |
end. |
.
|
|
2.1. . .
. Edit3, Edit4 Text ( ).
: Button3, ONCLICK
procedure TForm1.Button3Click(Sender: TObject);
begin
Edit1.Text:=' ';
Edit2.Text:=' ';
edit3.Text:=' ';
Edit4.Text:=' ';
end;
2.2. Editl Edit2 (. . 24).
:
Object Inspector Hint
( , )
1.
|
|