Проверка компонента
После того как компонент будет добавлен в пакет и его значок появится в палитре компонентов, необходимо проверить поведение компонента во время разработки приложения, использующего этот компонент (работоспособность компонента была проверена раньше, когда компонент добавлялся в форму приложения динамически, во время работы программы).
Можно считать, что компонент работает правильно, если во время разработки приложения удалось поместить этот компонент в форму разрабатываемого приложения и, используя окно
Object Inspector, установить значения свойств компонента, причем как новых, так и унаследованных от родительского класса.
Работоспособность компонента NkEdit можно проверить, использовав его, например, в приложении "Сила тока", вид формы которого приведен на рис. 6.12.
Рис. 6.12. Форма приложения "Сила тока" (поля ввода-редактирования компоненты NkEdit)
Внешне форма разрабатываемого приложения почти ничем не отличается от формы приложения "Сила тока", рассмотренного в гл. 2. Однако если выбрать поле ввода, то в окне
Object Inspector будет указано, что текущим компонентом является компонент класса TNkEdit, а в списке свойств можно будет увидеть свойства, которых нет у стандартного компонента Edit (рис. 6.13).
Рис. 6.13. Значения свойств EnableFloat, Max и Min компонента NkEdit можно задать в окне Object Inspector
В листинге 6.6 приведен модуль приложения "Сила тока". Здесь надо обратить
внимание на следующее. Первое. В программе нет кода, обеспечивающего фильтрацию символов, вводимых в поле редактирования. Тем не менее во время работы программы пользователь может ввести в поле редактирования только положительное число. Второе. В программе не используется функция
strToFloat. Число, которое соответствует введенной в поле редактирования строки символов, получается путем обращения к свойству
Numb.
Очевидно, что использование в программе компонента NkEdit вместо стандартного
Edit освобождает программиста от рутины, сокращает размер кода и делает его более понятным.
Листинг 6.6."Сила тока"
// нажатие клавиши в поле Напряжение
void __fastcall TForml::NkEditlKeyPress(TObject *Sender, char SKey)
{
if ( Key == VK_RETORN)
NkEdit2->SetFocus(); }
// нажатие клавиши в поле Сопротивление
void __fastcall TForml::NkEdit2KeyPress(TObject *Sender, char &Key)
{
if ( Key == VK_RETORN)
Buttonl->SetFocus(); }
// нажатие кнопки Вычислить
void __fastcall TForml::ButtonlClick(TObject *Sender)
{
float u; // напряжение
float r; // сопротивление
float i; // ток
// получить исходные данные из полей ввода
u = NkEditl->Numb;
r = NkEdit2->Nuinb;
if ( r == 0) {
ShowMessage("Сопротивление не должно быть равно нулю");
return; }
// вычислить ток i = u/r;
// вывести результат Label4->Caption = "Ток : " +
FloatToStrF(i,ffGeneral,7,3) + "А";
}