Ивт-20 / САОД и др / ОЗО_2010-САОД_1 / Демо_Проекты / Ввод-Вывод_Пример / Unit1

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls, ExtCtrls, Mask;

type
TForm1 = class(TForm)
Button1: TButton;
StatusBar1: TStatusBar;
GroupBox4: TGroupBox;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Button3: TButton;
Button4: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label5: TLabel;
Label6: TLabel;
Button5: TButton;
Label7: TLabel;
Edit6: TEdit;
Edit7: TEdit;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Button6: TButton;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
procedure Button1Click(Sender: TObject);
procedure Edit3Change(Sender: TObject);
procedure Edit4KeyPress(Sender: TObject; var Key: Char);
procedure Edit5Change(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Num1,Num2,Num3,A,B,C:Integer;
Num4,X,Y,Z:Real;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
Close
end;

procedure TForm1.Edit3Change(Sender: TObject);
// ввод целого 1 способ
var Code:Integer;
begin
if Edit3.Text<>'' then
begin
Val(Edit3.Text,Num1,Code);
if Code =0 then Label16.Caption:=IntToStr(Num1)
else // не число
begin
ShowMessage('Это не число');
Label16.Caption:='';Edit3.Text:=''
end;
end
else Label16.Caption:='';

end;

procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
// ввод целого 2 способ
begin
if not (Key in['0'..'9',#13,#8]) then Key:=#0;
if Key = #13 then
begin
Num2:=StrToInt(Edit4.Text);
Label17.Caption:=IntToStr(Num2);
end;
end;

procedure TForm1.Edit5Change(Sender: TObject);
// ввод вещественного 1 способ
var Code:Integer;
begin
if Edit5.Text<>'' then
begin
Val(Edit5.Text,Num4,Code);
if Code =0 then Label18.Caption:=FloatToStr(Num4)
else // не число
begin
ShowMessage('Это не число');
Edit3.Text:=''
end;
end;
end;

procedure TForm1.Button4Click(Sender: TObject);
// Очистить
var i:Integer;
begin
Edit3.Text:=''; Edit4.Text:=''; Edit5.Text:='';
end;

procedure TForm1.Button3Click(Sender: TObject);
// Деление
begin
if Num2 <> 0 then
begin
Num4:=Num1/Num2; Label12.Caption:=FormatFloat('#0.##',Num4);
end
else ShowMessage('Деление на ноль');
end;

procedure TForm1.Button5Click(Sender: TObject);
// Целочисленный ввод без блокировки ввода
begin
A:=StrToInt(Edit1.Text);
B:=StrToInt(Edit2.Text);
C:=A+B;
Label7.Caption:=IntToStr(C);
end;

procedure TForm1.Button6Click(Sender: TObject);
// Вещественный ввод без блокировки ввода
begin
X:=StrToFloat(Edit6.Text);
Y:=StrToFloat(Edit7.Text);
Z:=X/Y;
Label11.Caption:=FormatFloat('0.##',Z);
end;

end.