Информатика. Программирование в Delphi
196
13. Запустим приложение (рис. 14.3).
Рис. 14.3
Окончательный вариант приложения приведен в листинге 14.1. Коммен-
тарии удалены.
Листинг 14.1
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia-
logs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
//обявление компонентов
Label1: TLabel;
Edit1: TEdit;
RadioGroup1: TRadioGroup;
Image1: TImage;
I...,186,187,188,189,190,191,192,193,194,195 197,198,199,200,201,202,203,204,205,206,...370