Перед добавлением нового
компонента в палитру компонентов необходимо всесторонне его проверить. Для этого
надо создать приложение, использующее компонент и убедиться, что компонент работает
так, как надо.
Во время создания формы
приложения нельзя добавить в форму компонент, значка которого нет в палитре
компонентов. Однако такой компонент может быть добавлен в форму динамически,
т. е. во время работы приложения.
Создается тестовое
приложение обычным образом: сначала создается форма приложения, а затем — модуль
приложения.
Вид формы приложения
тестирования компонента NkEdit- приведен на рис. 16.2.
Рис. 16.2. Форма
приложения Тест компонента NkEdit
Форма содержит две
метки и командную кнопку. Первая метка предназначена для вывода информационного
сообщения, вторая метка (на рисунке она выделена) используется для вывода числа,
введенного в поле редактирования. Самого поля редактирования компонента NkEdit
в форме нет. Этот компонент будет создан динамически во время работы программы,
но для него оставлено место над полем метки.
После создания формы
в модуль приложения, автоматически сформированный Delphi, необходимо внести
следующие дополнения:
1. В список используемых
модулей (раздел uses) добавить имя модуля тестируемого компонента (NkEdit).
2. В раздел объявления
переменных (var) добавить инструкцию объявления компонента. Здесь следует вспомнить,
что компонент является объектом, поэтому объявление компонента в разделе переменных
не обеспечивает создание компонента, а только генерирует указатель на компонент,
следовательно необходима инструкция вызова конструктора объекта, которая действительно
создает компонент (объект).
3. Для формы приложения
создать процедуру обработки события oncreate, которая вызовом конструктора тестируемого
компонента создаст компонент и установит значения его свойств.
В листинге 16.3 приведен
модуль приложения тестирования компонента NkEdit.
Листинг 16.3.
Тест компонента NkEdit
unit
tstNkEdit_; interface
uses
Windows, Messages, SysUtils,
Variants, Classes, Graphics,
Controls,Forms,
Dialogs, StdCtrls,
NkEdit;
// ссылка на модуль компонента
type
TForm1
= class(TForm)
Label1:
TLabel;
Label2:
TLabel;
Buttonl:
TButton;
procedure
FormCreate(Sender: TObject);
procedure ButtonlClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1:
TForm1;
myEdit:
TnkEdit; // компонент NkEdit
implementation
{$R
*.dfm)
procedure TForm1.FormCreate(Sender: TObject);
begin
//
создадим компонент и поместим его на форму
myEdit := TNkEdit.Create(self);
myEdit.Parent := self;
myEdit.Left := 8;
myEdit.Top := 64;
end;
procedure TForm1.ButtonlClick(Sender: TObject);
begin
label2. Caption := FloatToStr (myEdit .Numb) ;
end;
end.
Тестируемый компонент
создается процедурой обработки события Formcre-ate (Создание формы) посредством
вызова конструктора компонента, которому в качестве параметра передается значение
self, показывающее, что владельцем компонента является форма приложения.
После создания компонента
обязательно должен быть выполнен важный шаг: свойству Parent необходимо присвоить
значение. В данном случае тестируемый компонент находится в форме приложения,
поэтому свойству Parent присваивается значение self.
На рис. 16.3 приведено
окно программы Тест компонента NkEdit во время ее работы, после ввода
числа в поле редактирования и щелчка на кнопке Тест.
Рис. 16.3. Тестирование компонента. Поле ввода — компонент NkEdit
Релятивисты и позитивисты утверждают, что "мысленный эксперимент" весьма полезный интрумент для проверки теорий (также возникающих в нашем уме) на непротиворечивость. В этом они обманывают людей, так как любая проверка может осуществляться только независимым от объекта проверки источником. Сам заявитель гипотезы не может быть проверкой своего же заявления, так как причина самого этого заявления есть отсутствие видимых для заявителя противоречий в заявлении.
Это мы видим на примере СТО и ОТО, превратившихся в своеобразный вид религии, управляющей наукой и общественным мнением. Никакое количество фактов, противоречащих им, не может преодолеть формулу Эйнштейна: "Если факт не соответствует теории - измените факт" (В другом варианте " - Факт не соответствует теории? - Тем хуже для факта").
Максимально, на что может претендовать "мысленный эксперимент" - это только на внутреннюю непротиворечивость гипотезы в рамках собственной, часто отнюдь не истинной логики заявителя. Соответсвие практике это не проверяет. Настоящая проверка может состояться только в действительном физическом эксперименте.
Эксперимент на то и эксперимент, что он есть не изощрение мысли, а проверка мысли. Непротиворечивая внутри себя мысль не может сама себя проверить. Это доказано Куртом Гёделем.
Понятие "мысленный эксперимент" придумано специально спекулянтами - релятивистами для шулерской подмены реальной проверки мысли на практике (эксперимента) своим "честным словом". Подробнее читайте в FAQ по эфирной физике.