Иллюстрированный самоучитель по Delphi 7 для начинающих

Загрузка файла теста

Передать имя файла теста программе тестирования можно через параметр командной строки путем настройки свойств значка, изображающего программу тестирования на рабочем столе или в папке.

Например, для настройки программы тестирования, значок запуска которой находится на рабочем столе, на работу с файлом теста Peterb.txt необходимо щелкнуть правой кнопкой мыши на значке программы, из появившегося контекстного меню выбрать команду Свойства и в поле Объект, после имени файла программы (Testl.exe), ввести имя файла теста (Peterb.txt), заключив его в двойные кавычки (рис. 15.5).

Иллюстрированный самоучитель по Delphi 7 для начинающих › Примеры программ › Загрузка файла теста
Рис. 15.5. Настройка программы тестирования

Примечание
Текст, находящийся в поле Объект вкладки Ярлык диалогового окна Свойства, называется командной строкой
.

Программа может получить параметр, указанный в командной строке запуска программы, как значение функции ParamStr(n), где n – номер параметра. Количество параметров командной строки находится в глобальной переменной 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.

Иллюстрированный самоучитель по Delphi 7 для начинающих › Примеры программ › Загрузка файла теста

Рис.15.6. Диалоговое окно Run Parameters

Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.