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

Информатика. Программирование в Delphi
183
Label3.Caption:=ComboBox3.Text+'='+FloatToStrF(z,ffFixed,15,7);
end;
8. Запустим приложение (рис. 13.3).
Рис. 13.3
Окончательный вариант приложения приведен в листинге 13.1. Коммен-
тарии удалены.
Листинг 12.1
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia-
logs, StdCtrls;
type
TForm1 = class(TForm)
//объявление компонентов
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
GroupBox2: TGroupBox;
ComboBox3: TComboBox;
Label3: TLabel;
Button1: TButton;
//объявление процедур
procedure FormCreate(Sender: TObject);
procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
procedure Button1Click(Sender: TObject);