Стр. 149 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
149
9. Запустим приложение рис. 10.3.
Рис. 10.3
10. Окончательный вариант приложения приведен в листинге 10.1. Ком-
ментарии удалены.
Листинг 10.1
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia-
logs, StdCtrls;
type
TForm1 = class(TForm)
//объявление компонентов
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
CheckBox1: TCheckBox;
Button1: TButton;
Label4: TLabel;
// объявление процедур
procedure EditKeyPress(Sender: TObject; var Key: Char);
procedure Button1Click(Sender: TObject);
private