Ивт-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;
GroupBox1: TGroupBox;
ComboBox1: TComboBox;
StatusBar1: TStatusBar;
Panel2: TPanel;
RadioButton5: TRadioButton;
GroupBox3: TGroupBox;
Edit2: TEdit;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
GroupBox4: TGroupBox;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
RadioButton4: TRadioButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
procedure RadioButton5Click(Sender: TObject);
procedure Edit3Change(Sender: TObject);
procedure Edit4KeyPress(Sender: TObject; var Key: Char);
procedure Edit5Change(Sender: TObject);
procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
procedure RadioButton4Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Num1,Num2,Num3:Integer;
Num4:Real;
implementation

{$R *.DFM}

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

procedure TForm1.FormActivate(Sender: TObject);
var i:Integer;
begin
// установка фокуса на Edit2
Edit2.SetFocus;
// Очистка списка
ComboBox1.Items.Clear;
// формирование списка ComboBox1
for i:=0 to 10 do
ComboBox1.Items.Append('Строка'+IntToStr(i));
// установка в поле редактирования значения из списка
ComboBox1.Text:=ComboBox1.Items[10];
// установка ширины полей StatusBar
for i:=0 to 6 do
StatusBar1.Panels[i].Width:=60;
Edit3.Text:=''; Edit4.Text:=''; Edit5.Text:='';
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
// редактирование
begin
Edit2.PassWordChar:=#0; Edit2.MaxLength:=0;// снятие пароля и длины
Edit2.ReadOnly:=False;
Edit2.SetFocus;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
// просмотр
begin
Edit2.ReadOnly:=True;// установка на просмотр
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
// пароль длиной 5
begin
Edit2.Text:='';// очистка поля редактирования
Edit2.ReadOnly:=False;// снятие установки на просмотр
Edit2.PassWordChar:='+';Edit2.MaxLength:=5;
end;

procedure TForm1.RadioButton5Click(Sender: TObject);
// список - выбор
begin
ComboBox1.Style:=csDropDownList;
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
StatusBar1.Panels[0].Text:=Edit2.Text;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
StatusBar1.Panels[1].Text:=ComboBox1.Text;
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 StatusBar1.Panels[2].Text:=IntToStr(Num1)
else // не число
begin
ShowMessage('Это не число');
StatusBar1.Panels[2].Text:='';Edit3.Text:=''
end;
end
else StatusBar1.Panels[2].Text:='';

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);
StatusBar1.Panels[3].Text:=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 StatusBar1.Panels[6].Text:=FloatToStr(Num4)
else // не число
begin
ShowMessage('Это не число');
StatusBar1.Panels[6].Text:='';Edit3.Text:=''
end;
end;
end;

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
//дополнение списка значением из поля редактирования по нажатию Enter
begin
if RadioButton4.Checked then
if Key =#13 then ComboBox1.Items.Append(ComboBox1.Text);
StatusBar1.Panels[1].Text:=ComboBox1.Text;
end;

procedure TForm1.RadioButton4Click(Sender: TObject);
begin // список дополнение
ComboBox1.Style:=csDropDown;
end;

procedure TForm1.Button2Click(Sender: TObject);
// Сумма
begin
Num3:=Num1+Num2;
StatusBar1.Panels[4].Text:=IntToStr(Num3);
end;

procedure TForm1.Button4Click(Sender: TObject);
// Очистить
var i:Integer;
begin
for i:=0 to StatusBar1.Panels.Count-1 do
StatusBar1.Panels[i].Text:='';
Edit3.Text:=''; Edit4.Text:=''; Edit5.Text:='';
end;

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

end;



end.