Имя файла теста передать  программе на Delphi «Тесты» можно с помощью параметра командной строки путём настройки свойств значка ярлыка ,программы на рабочем столе или в папке исполняющего файла с расширением  exe.
Рассмотрим пример, настройки программы на Delphi «Тесты» , значок запуска которой находится на рабочем столе (для этого нужно зайти в папку с программой и создать ярлык  на рабочем столе для файла программы), на работу с файлом  теста Dost.txt необходимо щёлкнуть правой кнопкой мыши и из контекстного меню выбрать пункт Свойства  и в поле Объект, после имени файла программы (Project_Test1.exe), ввести имя файла  теста (Dost.txt), заключив его в двойные кавычки (см. рис).

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

Программа может получить параметр, указанный в командной строке запуска программы , как значение функции где n – номер параметра. Коичество параметров командной строки находится в глобальной переменной ParamCount.  Для нашего примера , параметра командной строки, привёдённого выше значение переменной ParamCount  равно 1, а функции ParamStr(1)Dost.txt.

Далее приведён фрагмент кода программы, обеспечивающий приём параметра из командной строки: 
If  ParamCount = 0  then
          Begin
                 ShowMessage(‘Ошибка! Не задан файл вопросов теста’);
 goto bye;// аварийное завершение программы
         end;
FileName:= ParamStr(1); // имя файла  - параметр командной строки
При запуске программы, использующей параметры командной строки, из среды разработки параметры нужно ввести в поле Parameters диалогового окна Run  Parameters (см. рис.), которое открывается в результате выбора из меню Run  команды Parameters.

Загрузка файла теста Программы  на  Delphi «Тесты»

Скачать исходник программы на Delphi «Тесты» »:

 

Добавить комментарий


Защитный код
Обновить