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

Информатика. Программирование в Delphi
90
end;
В отличие от поля Edit1, в поле Edit2 можно вводить кроме цифр еще и
разделители, используемые для отделения целой части числа от дробной, в ка-
честве которых используются запятая или точка.
10. Запустим проект. Попробуем ввести текст в поля редактирования
Edit1 или Edit2. В поле Edit1 можно ввести только целые числа, а в поле Edit2
только вещественные.
Видно, что программа игнорирует ввод любых символов, кроме тех, ко-
торые оговорены в процедурах Edit1KeyPress и Edit2KeyPress.
Окончательный вариант приложения приведен в листинге 5.1. Коммента-
рии удалены.
Листинг 5.1
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia-
logs, StdCtrls;
type
TForm1 = class(TForm)
//объявление компонентов, расположенных на форме
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Label3: TLabel;
// объявление процедур, выполняемых в приложении
procedure Button1Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation