Передать имя файла
теста программе тестирования можно через параметр командной строки путем настройки
свойств значка, изображающего программу тестирования на рабочем столе или в
папке.
Например, для настройки
программы тестирования, значок запуска которой находится на рабочем столе, на
работу с файлом теста Peterb.txt необходимо щелкнуть правой кнопкой мыши на
значке программы, из появившегося контекстного меню выбрать команду Свойства
и в поле Объект, после имени файла программы (Testl.exe), ввести
имя файла теста (Peterb.txt), заключив его в двойные кавычки (рис. 15.5).
Рис. 15.5. Настройка
программы тестирования
Примечание
Текст, находящийся в поле Объект
вкладки Ярлык диалогового окна Свойства, называется командной
строкой.
Программа может получить
параметр, указанный в командной строке запуска программы, как значение функции
ParamStr^), где л — номер параметра. Количество параметров командной строки
находится в глобальной переменной ParamCount. Для приведенного выше примера
командной строки запуска программы тестирования значение переменной ParamCount
равно 1, а функции ParamStr (1) — peterb.txt.
Ниже приведен фрагмент
программы, обеспечивающий прием параметра из командной строки:
if
ParamCount = 0 then begin
ShowMessage('Ошибка!
Не задан файл вопросов теста.');
goto
bye; // аварийное завершение программы
end;
FileName
:= ParamStr(1); // имя файла — параметр командной строки
При запуске программы,
использующей параметры командной строки, из среды разработки параметры нужно
ввести в поле Parameters диалогового окна Run Parameters (рис.
15.6), которое открывается в результате выбора из меню Run команды Parameters.
Рис.15.6. Диалоговое
окно Run Parameters
Знаете ли Вы, как разрешается парадокс Ольберса? (Фотометрический парадокс, парадокс Ольберса - это один из парадоксов космологии, заключающийся в том, что во Вселенной, равномерно заполненной звёздами, яркость неба (в том числе ночного) должна быть примерно равна яркости солнечного диска. Это должно иметь место потому, что по любому направлению неба луч зрения рано или поздно упрется в поверхность звезды. Иными словами парадос Ольберса заключается в том, что если Вселенная бесконечна, то черного неба мы не увидим, так как излучение дальних звезд будет суммироваться с излучением ближних, и небо должно иметь среднюю температуру фотосфер звезд. При поглощении света межзвездным веществом, оно будет разогреваться до температуры звездных фотосфер и излучать также ярко, как звезды. Однако в дело вступает явление "усталости света", открытое Эдвином Хабблом, который показал, что чем дальше от нас расположена галактика, тем больше становится красным свет ее излучения, то есть фотоны как бы "устают", отдают свою энергию межзвездной среде. На очень больших расстояниях галактики видны только в радиодиапазоне, так как их свет вовсе потерял энергию идя через бескрайние просторы Вселенной. Подробнее читайте в FAQ по эфирной физике.
