Тестирование компонента
После того как компонент будет добавлен в пакет, необходимо проверить поведение компонента во время разработки приложения, использующего этот компонент (работоспособность компонента была проверена раньше, когда он добавлялся в форму приложения динамически, во время работы программы).
Можно считать, что компонент работает правильно, если во время разработки приложения удалось поместить этот компонент в форму разрабатываемого приложения и, используя окно Object Inspector, установить, значения свойств компонента, причем как новых, так и унаследованных от родительского класса.
Работоспособность компонента NkEdit можно проверить, использовав его, например, в приложении Поездка на дачу, вид формы которого приведен на рис. 16.9.
Рис. 16.9. Форма приложения Поездка на дачу (поля ввода-редактирования компонента NkEdit)
Внешне форма разрабатываемого приложения почти ничем не отличается от формы приложения Поездка на дачу, рассмотренного в гл. 6. Однако если выбранным компонентом будет поле ввода, то в окне Object Inspector указано, что текущим компонентом является компонент класса TNkEdit, a в списке свойств можно увидеть новое (по сравнению со списком свойств стандартного компонента Edit) свойство — Numb (рис. 16.10).
Рис. 16.10. Свойство компонента NkEdit отражено в окне Object Inspector
В листинге 16.4 приведен модуль приложения Поездка на дачу. Очевидно, что текст программы значительно меньше первоначального варианта, в котором для ввода данных использовался компонент Edit.
Листинг 16.4. Приложение "Поездка на дачу" тест компонента
unit fazenda ;
interface
uses
Windows, Messages, SysUtils,
Variants, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls,
NkEdit; // ссылка на модуль компонента
type
TForm1 = class(TForm)
NkEdit 1: TNkEdit; //расстояние
NkEdit2: TNkEdit; // цена литра бензина
NkEditS: TNkEdit; // потребление бензина на 100 км
CheckBox1: TCheckBox; // True — поездка туда и обратно
Button1: TButton; Label4: TLabel;
Label1: TLabel; Label2: TLabel;
Label3: TLabel;
// кнопка Вычислить
// поле вывода результата расчета
procedure ButtonlClick(Sender: TObject);
procedure NkEditlKeyPress
(Sender: TObject; var Key: Char);
procedure NkEdit2KeyPress
(Sender: TObject; var Key: Char);
procedure NkEditSKeyPress
(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
// нажатие клавиши в поле Расстояние
procedure TForm1.NkEdit1KeyPress
(Sender: TObject; var Key: Char);
begin
if Key = Char(VK_RETURN)
then NkEdit2.SetFocus; // переместить курсор в поле Цена
end;
// нажатие клавиши в поле Цена
procedure TForm1.NkEdit2KeyPress
(Sender: TObject; var Key: Char);
begin
if Key = Char(VK_RETURN)
then NkEdit3.SetFocus;
// переместить курсор в поле Потребление
end;
// нажатие клавиши в поле Потребление
procedure TForm1.NkEdit3KeyPress
(Sender: TObject; var Key: Char);
begin
if Key = Char(VK_RETURN)
then Buttonl.SetFocus; //
// сделать активной кнопку Вычислить
end;
// щелчок на кнопке Вычислить
procedure TForml.ButtonlClick(Sender: TObject);
var
rast : real; // расстояние
cena : real; // цена
potr : real; // потребление на 100 км
summ : real; // сумма
mes: string; begin
rast := StrToFloat(NkEdit1.Text);
cena := StrToFloat(NkEdit2.Text);
potr := StrToFloat(NkEdit3.Text) ;
summ := rast / 100 * potr * cena;
if CheckBoxl.Checked then sunnm := summ * 2;
mes := 'Поездка на дачу';
if CheckBoxl.Checked then mes := mes + ' и обратно';
mes := mes + 'обойдется в '
+ FloatToStrF(summ,ffGeneral,4,2) + ' руб.';
Label4.Caption := mes;
end;
end.
