Ивт-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.